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

志宇

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

pcl_test

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)

复制代码

志宇

回复 2# pcl_test


    谢谢你的帮助~