VBA如何遍历文件夹下的文件夹

VBA可以使用FileSystemObject对象来遍历文件夹下的子文件夹，具体操作步骤如下：

1. 首先需要引用Microsoft Scripting Runtime库，在VBA编辑器中选择“工具”->“引用”，勾选“Microsoft Scripting Runtime”即可。

2. 声明一个FileSystemObject对象，用于操作文件系统。

3. 使用FileSystemObject对象的GetFolder方法获取要遍历的文件夹对象。

4. 使用Folder对象的SubFolders属性获取该文件夹下的所有子文件夹对象，使用For Each语句遍历每个子文件夹。

5. 在遍历每个子文件夹时，可以使用递归的方式继续遍历该子文件夹下的子文件夹。

下面是一个示例代码，可以遍历指定文件夹下的所有子文件夹（包括子文件夹下的子文件夹），并输出每个子文件夹的路径：

Sub TraverseFolders(ByVal folderPath As String)
    Dim fso As New FileSystemObject
    Dim folder As Folder
    Dim subFolder As Folder
    
    Set folder = fso.GetFolder(folderPath)
    
    For Each subFolder In folder.SubFolders
        Debug.Print subFolder.Path
        TraverseFolders subFolder.Path
    Next subFolder
End Sub

你可以通过调用该函数并传入要遍历的文件夹的路径来实现遍历。例如，调用`TraverseFolders("C:\test")`将遍历C盘根目录下的test文件夹及其所有子文件夹。