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  
posted @ 2011-06-16 00:46  Sirrah  阅读(271)  评论(0)  编辑  收藏  举报