asp快速删除文件夹和文件asp

/ / 2024-09-11   阅读:2601
asp快速删除文件夹和文件...

写了个asp删除文件和文件夹的函数,可以把它写到公共文件里,然后用的时候是 call fileDel("file",1) 其中的file是文件的路径,可以是绝对目录也可以是相对目录,1为删除目录,如果不是1则删除的为文件

function fileDel(path,lei)'path目录,lei如果是1则删除目录,否则为文件
    path=Server.MapPath(path)
    Set fso = CreateObject("Scripting.FileSystemObject")
    if lei=1 then
        If fso.FolderExists(path) Then
        Set f = fso.GetFolder(path)
        f.delete()
        Set f = Nothing
        fileDel=true
        else
        fileDel=false
        End If
    else
        If fso.FileExists(path) Then
            Set f = fso.GetFile(path)
            f.delete()
            Set f = Nothing
        fileDel=true
        else
        fileDel=false
        End If
    end if
end function


我要评论

昵称:
验证码:

最新评论

共0条 共0页 10条/页 首页 上一页 下一页 尾页
意见反馈