File System Object（FSO对象）B

一、实例FSO获取当前路径下的文件

Sub Fsotest()
    Dim Fso As New FileSystemObject, Path As String, File
    Path = ThisWorkbook.Path & ""
    With Fso
        For Each File In .GetFolder(Path).Files '遍历路径下的所有Files
            If File.Name <> ThisWorkbook.Name Then
                Debug.Print File.Name
            End If
        Next
    End With
End Sub

 二、实例FSO遍历当前文件夹所有子文件夹

Sub test()
    Call Getfd(ThisWorkbook.Path & "")
End Sub

Sub Getfd(ByVal Path As String)
    Dim Fso As New FileSystemObject
    Dim Folder As Variant
    For Each Folder In Fso.GetFolder(Path).SubFolders '遍历文件夹
        Debug.Print Folder
        Getfd (Folder) '递归遍历子文件夹
    Next
End Sub

 三、实例FSO遍历当前文件夹及子文件夹下的所有Excel文件

Sub Test()
    Call GetFile(ThisWorkbook.Path & "")
End Sub

Sub GetFile(ByVal Path As String)
    Dim Fso As New FileSystemObject
    Dim Folder As Variant, File As Variant
    
    For Each File In Fso.GetFolder(Path).Files '遍历 path路径下文件
        If File.Name Like "*.xls*" Then
            Debug.Print Path & File
        End If
    Next
    
    For Each Folder In Fso.GetFolder(Path).SubFolders '遍历文件夹
        'Debug.Print Folder
        GetFile (Folder) '递归遍历子文件夹
    Next
End Sub