vbs：用迭代腳本顯示所有文件夾子文件夾？

Question

是否有可能通過迭代腳本獲取目錄中的所有子文件夾（以及子文件夾的子文件夾，...）？

我已經創造了它遞歸，但我不是可能這樣做迭代：/

任何一個想法：O型

感謝...

Answer 1

你必須執行棧一個遞歸子/功能爲您提供免費的：

Dim sSDir : sSDir = "..." 
walkDirIter goFS.GetFolder(sSDir) 

Sub walkDirIter(oDir) 
    Dim dicStack : Set dicStack = CreateObject("Scripting.Dictionary") 
    Dim nCur  : nCur   = dicStack.Count 
    Set dicStack(nCur) = oDir 
    Do Until nCur >= dicStack.Count 
    Dim oElm 
    For Each oElm In dicStack(nCur).Files 
     WScript.Echo oElm.Path 
    Next 
    For Each oElm In dicStack(nCur).SubFolders 
     Set dicStack(dicStack.Count) = oElm 
    Next 
    nCur = nCur + 1 
    Loop 
End Sub ' walkDirIter 

你可以看看this recursive approach上下文/比較。