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
