如何让vba循环浏览用户定义的文件夹，而不是手动选择每个文件夹

Sub LoopThroughFolders()
    Dim FileSystem As Object
    Dim Folder As Object
    Dim SubFolder As Object
    Dim File As Object

    ' 设置文件系统对象
    Set FileSystem = CreateObject("Scripting.FileSystemObject")
    
    ' 获取用户定义的文件夹路径
    Dim folderPath As String
    folderPath = InputBox("请输入文件夹路径：")
    
    ' 检查文件夹路径是否有效
    If Not FileSystem.FolderExists(folderPath) Then
        MsgBox "无效的文件夹路径！", vbExclamation
        Exit Sub
    End If
    
    ' 获取文件夹对象
    Set Folder = FileSystem.GetFolder(folderPath)
    
    ' 遍历文件夹及其子文件夹
    For Each SubFolder In Folder.SubFolders
        ' 处理子文件夹
        ' 可以在这里编写你的代码来处理子文件夹
        
        ' 遍历子文件夹中的文件
        For Each File In SubFolder.Files
            ' 处理文件
            ' 可以在这里编写你的代码来处理文件
        Next File
    Next SubFolder
    
    ' 释放对象
    Set File = Nothing
    Set SubFolder = Nothing
    Set Folder = Nothing
    Set FileSystem = Nothing
    
    MsgBox "循环浏览文件夹完成！", vbInformation
End Sub