vba提取多级文件夹的目录在哪

在VBA中，要提取多级文件夹的目录，可以使用递归函数来实现。

首先，我们需要创建一个递归函数，该函数将遍历文件夹及其子文件夹，并将目录保存到一个集合中，最后返回该集合。

以下是一个示例代码：

Sub GetFolderPaths(ByVal folderPath As String, ByRef folderPaths As Collection)
    Dim folder As Object
    Dim subFolder As Object
    
    ' 创建一个集合来保存目录
    If folderPaths Is Nothing Then
        Set folderPaths = New Collection
    End If
    
    ' 获取指定路径下的文件夹
    Set folder = CreateObject("Scripting.FileSystemObject").GetFolder(folderPath)
    
    ' 遍历子文件夹
    For Each subFolder In folder.SubFolders
        ' 将路径添加到集合中
        folderPaths.Add subFolder.Path
        ' 递归调用函数，处理子文件夹
        GetFolderPaths subFolder.Path, folderPaths
    Next subFolder
    
    ' 释放对象
    Set subFolder = Nothing
    Set folder = Nothing
End Sub

使用上述函数来提取多级文件夹的目录：

Sub Test()
    Dim folderPaths As Collection
    Dim path As Variant
    
    ' 调用递归函数，获取目录路径
    GetFolderPaths "C:\YourFolderPath", folderPaths
    
    ' 遍历集合，并打印目录路径
    For Each path In folderPaths
        Debug.Print path
    Next path
End Sub

以上代码中，通过调用`GetFolderPaths`函数，传递想要提取目录的根路径，并将提取到的目录路径保存在`folderPaths`集合中。然后，我们可以使用循环遍历集合，打印或处理每个目录路径。