vba获取文件夹所有子文件夹

在VBA中获取文件夹所有子文件夹可以通过递归的方式实现。首先需要声明一个函数，该函数接收一个文件夹路径作为参数，然后遍历该文件夹下的所有子文件夹，再分别调用自身来获取子文件夹的子文件夹，以此类推，直到所有子文件夹都被获取到。以下是一个简单的示例代码：

Sub GetAllSubFolders(folderPath As String)
    Dim fs As Object
    Dim folder As Object
    Dim subFolder As Object
    
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set folder = fs.GetFolder(folderPath)
    
    ' 遍历当前文件夹下的所有子文件夹
    For Each subFolder In folder.SubFolders
        Debug.Print subFolder.Path
        ' 调用自身获取子文件夹的子文件夹
        GetAllSubFolders subFolder.Path
    Next subFolder
End Sub

Sub Test()
    Dim folderPath As String
    ' 设置初始文件夹路径
    folderPath = "C:\Test"
    ' 调用函数获取所有子文件夹
    GetAllSubFolders folderPath
End Sub

在上面的示例中，我们首先声明了一个GetAllSubFolders的函数来获取文件夹所有子文件夹，然后在测试子程序Test中调用这个函数并传入初始的文件夹路径"C:\Test"。函数中首先使用FileSystemObject来获取当前文件夹下的所有子文件夹，然后遍历这些子文件夹并输出其路径，最后递归调用自身来获取子文件夹的子文件夹。这样就可以获取到指定文件夹下的所有子文件夹了。