Mega Code Archive

 

Categories / VisualBasic Script / File Path

 

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