[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[问题求助] [已解决]求vbs批量改文件名

求一个vbs代码,可以搜索本目录下所有的jpg文件,把  “幻灯片1.jpg” 改名为 “幻灯片01.jpg”,把 “ 幻灯片2.jpg” 改名为 “幻灯片02.jpg”,……一直到  把  “幻灯片9.jpg” 改名为 “幻灯片09.jpg”,全过程不出现窗口
1

评分人数

    • Batcher: 感谢给帖子标题标注[已解决]字样PB + 2

回复 2# pcl_test


    谢谢你的帮助~

TOP

本帖最后由 pcl_test 于 2015-8-22 23:30 编辑
  1. Set fso = CreateObject("Scripting.FileSystemObject")
  2. parentfolder = fso.GetParentFolderName(WScript.ScriptFullName)
  3. Function GetSubFolders(parentfolder)
  4.     Set currentFolder = fso.GetFolder(parentfolder)
  5.     For i=1 to 9
  6.         If (fso.FileExists(currentFolder&"\幻灯片"&i&".jpg")) Then
  7.             fso.movefile currentFolder&"\幻灯片"&i&".jpg",currentFolder&"\幻灯片0"&i&".jpg"
  8.         End If
  9.     Next
  10.     '以下四句递归遍历子文件夹,如果不包括子文件夹去掉即可
  11.     Set subFolderSet = currentFolder.SubFolders
  12.     For Each subFolder in subFolderSet
  13.         GetSubFolders(subFolder.Path)
  14.     Next
  15. End Function
  16.   
  17. Call GetSubFolders(parentfolder)
复制代码
1

评分人数

    • 志宇: 谢谢你的帮助~技术 + 1

TOP

返回列表