关于FSO的操作函数(经典)

Code
     '**************************************************
    '函数名：DeleteFile
    '作  用：删除指定文件
    '参  数：FileStr要删除的文件
    '返回值：成功返回true 否则返回Flase
    '**************************************************
    Public Function DeleteFile(FileStr)
       Dim FSO
       On Error Resume Next
       Set FSO = CreateObject("Scrip"+"ting"+"."+"File"+"System"+"Object")
        If FSO.FileExists(Server.MapPath(FileStr)) Then
            FSO.DeleteFile Server.MapPath(FileStr), True
        Else
        DeleteFile = True
        End If
       Set FSO = Nothing
       If Err.Number <> 0 Then
       Err.Clear:DeleteFile = False
       Else
       DeleteFile = True
       End If
    End Function

转载于:https://www.cnblogs.com/hsxiaoma/articles/1563015.html