蜻蜓手游网,绿色安全的手机软件下载站!
网站首页 安卓游戏 安卓应用 游戏资讯 游戏攻略 软件教程 PC软件 iOS游戏

首页软件教程 → 用VBS批量重命名复制文件并改名称

用VBS批量重命名复制文件并改名称

来源:本站原创时间:2018/11/7 23:08:38作者:蜻蜓小编点击:18次评论:0次

  • 类型:养成经营大小:36.5M语言:中文 评分:5.0
  • 标签:
立即下载

蜻蜓手游网小编最近把系统从PHP改成ASP的系统,原来老的系统中的图片地址做了跳转处理。

比如请求的文件名是 http://pic.qt6.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.qt6.com/up/2018-11/2018117234326280.txt 

相关评论

阅读本文后您有什么感想? 已有人给出评价!

  • 2791 喜欢喜欢
  • 2101 顶
  • 800 难过难过
  • 1219 囧
  • 4049 围观围观
  • 5602 无聊无聊

热门评论

最新评论

发表评论 查看所有评论(0)

昵称:
表情: 高兴 可 汗 我不要 害羞 好 下下下 送花 屎 亲亲
字数: 0/500 (您的评论需要经过审核才能显示)

游戏推荐