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