FileSearch Property Example
This example creates a FoundFiles object that represents all the Microsoft Excel workbooks in the My Documents folder.
With Application.FileSearch .LookIn = "c:\my documents" .FileType = msoFileTypeExcelWorkbooks .Execute End With