国产精自产拍久久久久久蜜,国产成人av综合亚洲色欲,久久久亚洲AV无码精品一区,超碰在线人人人

蜻蜓手游網(wǎng)，分享真實(shí)精致軟件資源！

首頁(yè) → 軟件教程 → 用VBS批量重命名復(fù)制文件并改名稱

用VBS批量重命名復(fù)制文件并改名稱

來(lái)源：本站原創(chuàng)時(shí)間：2018/11/7 23:08:38作者：蜻蜓小編點(diǎn)擊：584次評(píng)論：0次

蜻蜓手游網(wǎng)小編最近把系統(tǒng)從PHP改成ASP的系統(tǒng)，原來(lái)老的系統(tǒng)中的圖片地址做了跳轉(zhuǎn)處理。

比如請(qǐng)求的文件名是 http://pic.qtsyw.com/up/bak/ab17580b53edb0248cce640143b8bce9.png 但是實(shí)際上在服務(wù)器上面的路徑是  /ab/17580b53edb0248cce640143b8bce9.png 訪問(wèn)的時(shí)候把基中的 目錄名字當(dāng)成文件名來(lái)訪問(wèn)，小編想了很外整理了一個(gè)簡(jiǎn)單的VBS腳本來(lái)處理，希望能給正好有這個(gè)需求的朋友一個(gè)提示。

'on error resume next

dim k,oFso,currentpath

k=0

set oFso=createobject("scripting.filesystemobject")

Function FilesTree(oSubFolder)  '遍歷一個(gè)文件夾下的所有文件夾文件夾  

    dim sPath,sName

     sPath = oSubFolder.Path

     sName = oSubFolder.Name

    Set oFolder = oFso.GetFolder(sPath)     

    Set oFiles = oFolder.Files  

    For Each oFile In oFiles  

       ' Msgbox oFile.Path  

        'oFile.Delete    

        oFso.copyfile oFile,currentpath+"\back\"+sName +oFile.Name

    Next  

    Set oFolder = Nothing  

    Set oSubFolders = Nothing  

   ' Set oFso = Nothing  

End Function 

currentpath = createobject("Scripting.FileSystemObject").GetFolder(".").Path

Set oFolder = oFso.GetFolder(currentpath) 

  Set oSubFolders = oFolder.SubFolders 

   For Each oSubFolder In oSubFolders  

        if (oSubFolder.Name<>"back")then

          FilesTree(oSubFolder)'遞歸  

        end if

    Next

需要代碼的就直接下載吧 http://pic.qtsyw.com/up/2018-11/2018117234326280.txt 

猜你喜歡

    相關(guān)文章

    相關(guān)評(píng)論

    閱讀本文后您有什么感想? 已有人給出評(píng)價(jià)!

    • 2791 喜歡喜歡
    • 2101 頂頂
    • 800 難過(guò)難過(guò)
    • 1219 囧囧
    • 4049 圍觀圍觀
    • 5602 無(wú)聊無(wú)聊

    熱門評(píng)論

    最新評(píng)論

    發(fā)表評(píng)論查看所有評(píng)論(0)

    昵稱:
    表情: 高興 可 汗 我不要 害羞 好 下下下 送花 屎 親親
    字?jǐn)?shù): 0/500 (您的評(píng)論需要經(jīng)過(guò)審核才能顯示)

    游戲推薦