asp下使用fso实现文件夹或文件移动改名等操作函数

asp利用fso实现文件的移动：

function movefiles(sFolder,dFolder)

    on error resume next

    dim fso

    set fso = server.createobject("scripting.filesystemobject")

    if fso.folderexists(server.mappath(sFolder)) and fso.folderexists(server.mappath(dFolder)) then

        fso.copyfolder server.mappath(sFolder),server.mappath(dFolder)

        movefiles = true

    else

        movefiles = false

        set fso = nothing

        call alertbox("系统没有找到指定的路径[" & sFolder & "]!",2)

    end if

    set fso = nothing

end function

asp修改文件夹名称

function renamefolder(sFolder,dFolder)

    on error resume next

    dim fso

    set fso = server.createobject("scripting.filesystemobject")

    if fso.folderexists(server.mappath(sFolder)) then

        fso.movefolder server.mappath(sFolder),server.mappath(dFolder)

        renamefolder = true

    else

        renamefolder = false

        set fso = nothing

        call alertbox("系统没有找到指定的路径[" & sFolder & "]!",2)

    end if

    set fso = nothing

end function

asp检查文件夹是否存在

function checkfolder(sPATH)

    on error resume next

    dim fso

    set fso = server.createobject("scripting.filesystemobject")

    if fso.folderexists(server.mappath(sPATH)) then

        checkfolder = true

    else

        checkfolder = false

    end if

    set fso = nothing

end function

asp检查文件是否存在

function checkfile(sPATH)

    on error resume next

    dim fso

    set fso = server.createobject("scripting.filesystemobject")

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!