vbs:使用迭代脚本显示所有文件夹子文件夹? [英] vbs: Show all Folder subfolders with an iterative script?

问题描述

是否可以使用迭代脚本获取目录的所有子文件夹(以及子文件夹中的子文件夹，...)?

IS it possible to get all Subfolders (And the subfolders from the subfolders,...) of an Directory with an iterative script?

我已经创建了它递归，但我无法迭代:/

I already created it recursive but im not possible to do it iterative :/

任何人的想法:O

谢谢...

推荐答案

您必须实现递归子/函数免费为您提供的堆栈:

You'll have to implement the stack which a recursive Sub/Function gives you for free:

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

您可以查看这种递归方法的上下文/比较.

You could look at this recursive approach for context/comparison.

这篇关于vbs:使用迭代脚本显示所有文件夹子文件夹?的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！