Function FilesTree(sPath)
'遍历一个文件夹下的所有文件夹文件夹
Set oFso = CreateObject("Scripting.FileSystemObject") '如f:\
Set oFolder = oFso.GetFolder(sPath)
Set oSubFolders = oFolder.SubFolders
Set oFiles = oFolder.Files
For Each oFile In oFiles
'WScript.Echo oFile.Path
' writetofile(oFile.Path)
'oFile.Delete
Next
For Each oSubFolder In oSubFolders
'WScript.Echo oSubFolder.Path
'oSubFolder.Delete
writetofile(oSubFolder.Path)
FilesTree(oSubFolder.Path)'递归
Next
Set oFolder = Nothing
Set oSubFolders = Nothing
Set oFso = Nothing
End Function
FilesTree(inputbox("Input Parent Folder:")) '遍历
msgbox("ok")
function writetofile(s)
Set oFso = CreateObject("Scripting.FileSystemObject")
if oFso.FileExists("folder.txt") then
else
set ts=oFso.createtextfile("folder.txt",true)
ts.close
end if
Set fs=oFso.OpenTextFile("folder.txt",8,True)
fs.WriteLine(s)
fs.close
end function