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 = NothingEnd FunctionFunction 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 = NothingEnd Function VBS 批量修改多个文件夹下的文字命名,布布扣,bubuko.com
原文：http://www.cnblogs.com/jinjiangongzuoshi/p/3834641.html