newasp中main类(66)

        End If
        Set fso = Nothing
        If Err.Number <> 0 Then Err.Clear
    End Function
    '================================================
    '函数名：CopyToFolder
    '作  用：复制文件夹
    '参  数：SoureFolder   ----原路径
    '        NewFolder  ----目标路径
    '================================================
    Public Function CopyToFolder(ByVal SoureFolder, ByVal NewFolder)
        On Error Resume Next
        If SoureFolder = "" Then Exit Function
        If NewFolder = "" Then Exit Function
        If InStr(SoureFolder, ":") = 0 Then SoureFolder = Server.MapPath(SoureFolder)
        If InStr(NewFolder, ":") = 0 Then NewFolder = Server.MapPath(NewFolder)
        Dim fso
        Set fso = Server.CreateObject(FSO_ScriptName)
        If fso.FolderExists(SoureFolder) Then
            fso.CopyFolder SoureFolder, NewFolder
        End If
        Set fso = Nothing
        If Err.Number <> 0 Then Err.Clear
    End Function
    '=============================================================
    '过程名：CreatedTextFile
    '作  用：创建文本文件
    '参  数：filename  ----文件名
    '        body  ----主要内容
    '=============================================================
    Public Function CreatedTextFile(ByVal FileName, ByVal body)
        On Error Resume Next
        If InStr(FileName, ":") = 0 Then FileName = Server.MapPath(FileName)