VBScript遍历Set子文件夹级别

好的，我有一个vbscript可以遍历目录及其子文件夹以检索文件列表。
这里的例子:

Set FSO = CreateObject("Scripting.FileSystemObject")
ShowSubfolders FSO.GetFolder("C:\Scripts")

Sub ShowSubFolders(Folder)
    For Each Subfolder in Folder.SubFolders
        Wscript.Echo Subfolder.Path
        ShowSubFolders Subfolder
    Next
End Sub

现在，这对于获取广泛的列表非常有用，但是如果文件夹层次结构较深，则性能会很糟糕。

所以我的问题是，有没有办法编辑脚本的这一部分，使其仅遍历一定数量的子文件夹级别？由于折叠结构的深度，要向下钻取的理想级别数应为3个级别。

最佳答案

给您的递归调用退出条件ala

Set FSO = CreateObject("Scripting.FileSystemObject")
ShowSubfolders FSO.GetFolder("C:\Scripts"), 3

Sub ShowSubFolders(Folder, Depth)
    If Depth > 0 then
        For Each Subfolder in Folder.SubFolders
            Wscript.Echo Subfolder.Path
            ShowSubFolders Subfolder, Depth -1
        Next
    End if
End Sub