【vba】【excel】获取文件夹中的所有子文件夹

主要是递归方式获取

Sub ListSubfoldersRecursive()
    Dim fso As Object
    Dim folderPath As String
    
    ' 创建 FileSystemObject 对象
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 设置文件夹路径
    folderPath = "C:\Path\To\ParentFolder"
    
    ' 递归遍历子文件夹
    RecursiveSubfolders fso.GetFolder(folderPath)
    
    ' 释放对象
    Set fso = Nothing
End Sub

Sub RecursiveSubfolders(folder As Object)
    Dim subfolder As Object
    
    ' 处理当前文件夹
    Debug.Print folder.Path
    
    ' 处理子文件夹
    For Each subfolder In folder.Subfolders
        RecursiveSubfolders subfolder
    Next subfolder
End Sub