vbscript - 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

コンテキスト/比較のために、この再帰的アプローチを見ることができます。