遍历一个文件夹下的所有文件夹文件夹Tree.vbs

'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") '遍历