'vbs直接在控制台显示出遍历后的文件及文件夹,当然您可以修改让其输入到文件或更改显示方式。
Function FilesTree(sPath)
'遍历一个文件夹下的所有文件夹文件夹
Set oFso = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFso.GetFolder(sPath)
Set oSubFolders = oFolder.SubFolders
Set oFiles = oFolder.Files
For Each oFile In oFiles
WScript.Echo oFile.Path
'oFile.Delete
Next
For Each oSubFolder In oSubFolders
WScript.Echo oSubFolder.Path
'oSubFolder.Delete
FilesTree(oSubFolder.Path)'递归
Next
Set oFolder = Nothing
Set oSubFolders = Nothing
Set oFso = Nothing
End Function
FilesTree("F:\deltest\deltest") '遍历
遍历一个文件夹下的所有文件夹文件夹
最新推荐文章于 2022-04-09 08:50:56 发布