Use Application.FileSearch to find files : FileSearch « File Path « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. File Path
  3. FileSearch

Use Application.FileSearch to find files

 

Sub findFiles()
   Dim i As Integer
   
   With Application.FileSearch
      .NewSearch
      .LookIn = "c:\VBA"
      .FileName = "*.mdb"
      .SearchSubFolders = True
      If .Execute() > 0 Then
         For i = 1 To .FoundFiles.Count
            Debug.Print .FoundFiles(i)
         Next i
      End If
   End With
End Sub








Related examples in the same category

1.The FileSearch Object
2.PropertyTests
3.The FoundFiles Collection Object
4.if a particular file exists, and False if not
5.searches the My Documents directory and its subdirectories for all XLS files that contain the text budget.
6.Find a file
7.Find a file with wildcard character
8.File files with Application.FileSearch