searches the My Documents directory and its subdirectories for all XLS files that contain the text budget. : FileSearch « File Path « VBA / Excel / Access / Word






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

searches the My Documents directory and its subdirectories for all XLS files that contain the text budget.

 
Sub FindFiles()
    With Application.fileSearch
        .NewSearch
        .LookIn = "C:\My"
        .SearchSubFolders = True
        .TextOrProperty = "textInFile"
        .MatchTextExactly = True
        .FileName = "*.xls"
        .Execute
        For i = 1 To .FoundFiles.Count
            Debug.Print .FoundFiles(i)
        Next i
    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.Find a file
6.Find a file with wildcard character
7.File files with Application.FileSearch
8.Use Application.FileSearch to find files