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

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