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

志宇

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

pcl_test

Set fso = CreateObject("Scripting.FileSystemObject")
parentfolder = fso.GetParentFolderName(WScript.ScriptFullName)

Function GetSubFolders(parentfolder)
    Set currentFolder = fso.GetFolder(parentfolder)
    For i=1 to 9
        If (fso.FileExists(currentFolder&"\幻灯片"&i&".jpg")) Then
            fso.movefile currentFolder&"\幻灯片"&i&".jpg",currentFolder&"\幻灯片0"&i&".jpg"
        End If
    Next
    '以下四句递归遍历子文件夹，如果不包括子文件夹去掉即可
    Set subFolderSet = currentFolder.SubFolders
    For Each subFolder in subFolderSet
        GetSubFolders(subFolder.Path)
    Next
End Function
  
Call GetSubFolders(parentfolder)
复制代码

志宇

回复 2# pcl_test


    谢谢你的帮助~