点击刷新
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 © 著作权归作者所有
举报
发表评论
0/200
