asp利用fso實(shí)現(xiàn)文件的移動(dòng)
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("系統(tǒng)沒有找到指定的路徑["  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("系統(tǒng)沒有找到指定的路徑["  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")
    if fso.fileexists(server.mappath(sPATH)) then
        checkfile = true
    else
        checkfile = false
    end if
    set fso = nothing
end function
asp創(chuàng)建文件夾
function createdir(sPATH)
    dim fso,pathArr,i,path_Level,pathTmp,cPATH
    on error resume next
    sPATH = replace(sPATH,"\","/")
    set fso = server.createobject("scripting.filesystemobject")
        pathArr = split(sPATH,"/")
        path_Level = ubound(pathArr)
        for i = 0 to path_Level
            if i = 0 then pathTmp = pathArr(0)  "/" else pathTmp = pathTmppathArr(i)  "/"
            cPATH = left(pathTmp,len(pathTmp)-1)
            if not fso.folderexists(cPATH) then fso.createfolder(cPATH)
        next
    set fso = nothing
    if err.number > 0 then
        err.clear
        createdir = false
    else
        createdir = true
    end if
end function
刪除文件夾，這里是刪除系統(tǒng)中欄目的文件夾
function delclassfolder(sPATH)
    on error resume next
    dim fso
    set fso = server.createobject("scripting.filesystemobject")
    if fso.folderexists(server.mappath(sPATH)) then
        fso.deletefolder(server.mappath(sPATH))
    end if
    set fso = nothing
end function
刪除新聞內(nèi)容文件
function delnewsfile(sPATH,filename)
    on error resume next
    dim fso,tempArr,cPATH,ePATH,i:i = 0
    set fso = server.createobject("scripting.filesystemobject")
    sPATH = sPATH  filename  site_extname
    if fso.fileexists(server.mappath(sPATH)) then
        fso.deletefile(server.mappath(sPATH))
        while(i > -1)
            i = i + 1
            ePATH = replace(sPATH,filename  ".",filename  "_"  i + 1  ".")
            if fso.fileexists(server.mappath(ePATH)) then
                fso.deletefile(server.mappath(ePATH))
            else
                i = -1
            end if
        wend
    end if
end function

您可能感興趣的文章:

asp fso操作類
asp結(jié)合fso實(shí)現(xiàn)文件或文件夾創(chuàng)建刪除等操作的函數(shù)
使用FSO修改文件夾的名稱實(shí)現(xiàn)文件轉(zhuǎn)移防盜鏈
fso asp生成靜態(tài)html的代碼
ASP+FSO可視化目錄編歷（可增、刪、改）下載
asp下用ADODB.Stream代替FSO讀取文本文件
設(shè)置FSO權(quán)限功能的說明
ASP FSO文件操作函數(shù)代碼（復(fù)制文件、重命名文件、刪除文件、替換字符串）

標(biāo)簽：衡水衢州大理蚌埠萍鄉(xiāng) 廣元江蘇棗莊

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《asp下利用fso實(shí)現(xiàn)文件夾或文件移動(dòng)改名等操作函數(shù)》，本文關(guān)鍵詞；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。