Board logo

标题: [问题求助] [已解决]求vbs批量改文件名 [打印本页]
作者: 志宇    时间: 2015-8-22 21:04     标题: [已解决]求vbs批量改文件名

求一个vbs代码，可以搜索本目录下所有的jpg文件，把  “幻灯片1.jpg” 改名为 “幻灯片01.jpg”，把 “ 幻灯片2.jpg” 改名为 “幻灯片02.jpg”，……一直到  把  “幻灯片9.jpg” 改名为 “幻灯片09.jpg”，全过程不出现窗口
作者: pcl_test    时间: 2015-8-22 22:54

本帖最后由 pcl_test 于 2015-8-22 23:30 编辑 
  1. Set fso = CreateObject("Scripting.FileSystemObject")

  2. parentfolder = fso.GetParentFolderName(WScript.ScriptFullName)

  3. 

  4. Function GetSubFolders(parentfolder)

  5.     Set currentFolder = fso.GetFolder(parentfolder)

  6.     For i=1 to 9

  7.         If (fso.FileExists(currentFolder&"\幻灯片"&i&".jpg")) Then

  8.             fso.movefile currentFolder&"\幻灯片"&i&".jpg",currentFolder&"\幻灯片0"&i&".jpg"

  9.         End If

  10.     Next

  11.     '以下四句递归遍历子文件夹，如果不包括子文件夹去掉即可

  12.     Set subFolderSet = currentFolder.SubFolders

  13.     For Each subFolder in subFolderSet

  14.         GetSubFolders(subFolder.Path)

  15.     Next

  16. End Function

  17.   

  18. Call GetSubFolders(parentfolder)
复制代码
作者: 志宇    时间: 2015-8-25 20:51

回复 2# pcl_test


    谢谢你的帮助~



欢迎光临 批处理之家 (http://bathome.net./) Powered by Discuz! 7.2