[朗读900字]

删除指定路径下的文件夹或文件,还是比较实用。

function file_delete(str_path,flag)
    dim tmp '返回变量
    err.clear()
    dim fso : set fso=server.CreateObject("scripting.filesystemobject")
    if flag = 1 then '删除文件
        if fso.fileexists( server.MapPath(str_path) ) then
            fso.deletefile( server.MapPath(str_path) )
            if err > 0 then
                tmp = false
            else
                tmp = true
            end if
        else
            tmp = false
        end if
    else '删除文件夹
        if fso.folderexists( server.MapPath(str_path) ) then
            fso.deletefolder( server.MapPath(str_path) )
            if err > 0 then
                tmp = false
            else
                tmp = true
            end if
        else '文件和文件夹都不存在
            tmp = false
        end if
    end if
    set fso = nothing
    err.clear()
    file_delete = tmp
end function

标签: none



添加新评论


最近回复