VBS 批量修改多个文件夹下的文字命名

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

Function FilesTree(sPath)       Set oFso = CreateObject( "Scripting.FileSystemObject" )       Set oFolder = oFso.GetFolder(sPath)       Set oSubFolders = oFolder.SubFolders         For Each oSubFolder In oSubFolders          path=oSubFolder.Path          name=oSubFolder.name          Call FilesTree1(path,name)          FilesTree(oSubFolder.Path) '递归       Next      Set oFolder = Nothing      Set oSubFolders = Nothing      Set oFso = Nothing End Function   Function FilesTree1(sPath,sName)         Set oFso = CreateObject( "Scripting.FileSystemObject" )       Set oFolder = oFso.GetFolder(sPath)       Set oSubFolders = oFolder.SubFolders       Set oFiles = oFolder.Files       For Each oFile In oFiles             set f=oFso.getfile(oFile.Path)          f.name=sName& ".png"      Next       Set oFolder = Nothing      Set oSubFolders = Nothing      Set oFso = Nothing End Function