VBA遍历文件夹及子文件夹中所有文件

VBA中遍历文件方法很多,但很多方法又有局限,DIR的方法很难遍历子文件夹文件.FileSearch方法在office 2007中MS把Application对象FileSearch方法删除了.所有我们来用FileSystemObject对象实现遍历文件夹及子文件夹中所有文件.

代码如下:

 Dim arrFiles()
 Dim countFiles%
 Public Sub ListAllFiles()
    
         Dim strPath$
         Dim i%
         Dim fso As New FileSystemObject, fd As Folder

         strPath = "C:\temp"
         ReDim arrFiles(1 To 1000)
         cntFiles = 0
         Set fd = fso.GetFolder(strPath)
         SearchFiles fd
         ReDim Preserve arrFiles(1 To countFiles)
         For i = 1 To cntFiles
            Msgbox arrFiles(i)
         Next i
 End Sub

 Sub SearchFiles(ByVal fd As Folder)
     Dim fl As File
     Dim sfd As Folder
   
     For Each fl In fd.Files
       countFiles= countFiles+ 1
       If cntFiles > UBound(arrFiles) Then ReDim Preserve arrFiles(1 To countFiles+ 1000)

      arrFiles(cntFiles) = fl.Path
     Next fl
   
     If fd.SubFolders.Count = 0 Then Exit Sub
   
     For Each sfd In fd.SubFolders
       SearchFiles sfd
     Next
   
 End Sub