涩涩视频在线观看,超碰在线日韩第三页,99精品大香蕉视频,在线精品成人综合

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

首頁 → 軟件教程 → 用VBS批量重命名復制文件并改名稱

用VBS批量重命名復制文件并改名稱

來源：本站原創(chuàng)時間：2018/11/7 23:08:38作者：蜻蜓小編點擊：584次評論：0次

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

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

'on error resume next

dim k,oFso,currentpath

k=0

set oFso=createobject("scripting.filesystemobject")

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

    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 

猜你喜歡

    相關文章

    相關評論

    閱讀本文后您有什么感想? 已有人給出評價!

    • 2791 喜歡喜歡
    • 2101 頂頂
    • 800 難過難過
    • 1219 囧囧
    • 4049 圍觀圍觀
    • 5602 無聊無聊

    熱門評論

    最新評論

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

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

    游戲推薦

    日韩免费偷拍视频| 国产一区69| 亚洲欧美第一页| 美日欧激情av大片免费观看| 一本热视频| 亚洲午夜啪啪啪视频| wwwXXXX视频| 中国china体内裑精亚洲日本| 久www| 精品日韩大片| 呦呦不卡视频在线看| 色噜噜一区二区三区| 青青精品在线视频| 超碰100米来射吧| 秋霞影音91人妻久久| 国产成人久久精品激情少年阿宾| 欧美女人牲交| 奇米在线一区二区| 国产 强上 在线| 欧美人一区二区三区| 人人爽人人澡人人人妻| 老司机中文字幕| 欧美一级黄片靠逼| 国产成人熟女精品| 日韩超清无码中文字幕软件| 最新亚洲人成无码网站| 五月丁香精品播放| 色播男人的天堂| 久99草| 东京热精品| 成年女人天堂香蕉网| 韩日免费| 久久看片视频| 久久久精品日| 亚洲国产精品无码三区| www.操逼| 美女天天日| 综合影院永久入口| 综合色热| 久久亚洲电影精品| 国产wwwwxxxx|