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 了解上下文/比较。