相关疑难解决方法(0)

• 我想获得目录中所有子目录的列表.
• 如果可行,我想将其扩展为递归函数.

然而,我最初获得子目录的方法失败了.它只显示包括文件在内的一切:

sDir = Dir(sPath, vbDirectory)
Do Until LenB(sDir) = 0
    Debug.Print sDir
    sDir = Dir
Loop

该列表以".."和几个文件夹开头,以".txt"文件结尾.

编辑:
我应该补充说,这必须在Word中运行,而不是Excel(许多功能在Word中不可用),它是Office 2010.

编辑2:

可以使用确定结果的类型

iAtt = GetAttr(sPath & sDir)
If CBool(iAtt And vbDirectory) Then
   ...
End If 

但这给了我新的问题,所以我现在正在使用基于的代码Scripting.FileSystemObject.

我的循环脚本通过单个文件工作正常,但我现在需要它也查看/为多个目录.我被困了....

事情需要发生的事情:

• 提示用户选择所需内容的根目录
• 我需要脚本来查找该根目录中的任何文件夹
• 如果脚本找到一个,它会打开第一个(所有文件夹,因此文件夹没有特定的搜索过滤器)
• 打开后,我的脚本将遍历文件夹中的所有文件并执行它需要执行的操作
• 它完成后关闭文件,关闭目录并移动到下一个,等等.
• 循环直到所有文件夹都被打开/扫描

这就是我所拥有的,这是行不通的,我知道是错的:

MsgBox "Please choose the folder."
Application.DisplayAlerts = False
With Application.FileDialog(msoFileDialogFolderPicker)
    .InitialFileName = "\\blah\test\"
    .AllowMultiSelect = False
    If .Show <> -1 Then MsgBox "No folder selected! Exiting script.": Exit Sub
    CSRootDir = .SelectedItems(1)
End With
folderPath = Dir(CSRootDir, "\*")

Do While Len(folderPath) > 0
    Debug.Print folderPath
    fileName = Dir(folderPath & "*.xls")
    If folderPath <> "False" Then
        Do While fileName <> ""
            Application.ScreenUpdating = False
            Set wbkCS = Workbooks.Open(folderPath & fileName)

            --file loop …