newasp中main类(65)

    '返回值：False  ----  True
    '================================================
    Public Function FolderDelete(ByVal FolderPath)
        FolderDelete = False
        On Error Resume Next
        Dim fso
        Set fso = Server.CreateObject(FSO_ScriptName)
        If FolderPath = "" Then Exit Function
        If InStr(FolderPath, ":") = 0 Then FolderPath = Server.MapPath(FolderPath)
        If fso.FolderExists(FolderPath) Then
            fso.DeleteFolder FolderPath, True
            FolderDelete = True
        End If
        Set fso = Nothing
        If Err.Number <> 0 Then Err.Clear
    End Function
    '================================================
    '函数名：CopyToFile
    '作  用：复制文件
    '参  数：SoureFile   ----原文件路径
    '        NewFile  ----目标文件路径
    '================================================
    Public Function CopyToFile(ByVal SoureFile, ByVal NewFile)
        On Error Resume Next
        If SoureFile = "" Then Exit Function
        If NewFile = "" Then Exit Function
        If InStr(SoureFile, ":") = 0 Then SoureFile = Server.MapPath(SoureFile)
        If InStr(NewFile, ":") = 0 Then NewFile = Server.MapPath(NewFile)
        Dim fso
        Set fso = Server.CreateObject(FSO_ScriptName)
        If fso.FileExists(SoureFile) Then
            fso.CopyFile SoureFile, NewFile