如何使用vba遍历所有子文件夹及其子子文件夹等，检查文件夹是否存在？

Sub CheckFolders()
    Dim mainFolder As String
    mainFolder = "C:\MainFolder\" '主文件夹路径，替换为实际的路径
    
    CheckSubfolders mainFolder '调用递归函数
End Sub

Sub CheckSubfolders(folderPath As String)
    Dim fso As Object
    Dim folder As Object
    Dim subfolder As Object
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set folder = fso.GetFolder(folderPath)
    
    For Each subfolder In folder.Subfolders
        Debug.Print subfolder.Path '打印子文件夹路径
        
        '检查文件夹是否存在
        If fso.FolderExists(subfolder.Path) Then
            '存在
            '在这里可以进行相应的处理操作
        Else
            '不存在
            '在这里可以进行相应的处理操作
        End If
        
        '递归调用，遍历子文件夹的子文件夹
        CheckSubfolders subfolder.Path
    Next subfolder
    
    Set fso = Nothing
    Set folder = Nothing
    Set subfolder = Nothing
End Sub