Sub test1() ' FindFile "test" End Sub Function FindFile(strFileSpec As String) Dim fsoFileSearch As FileSearch Set fsoFileSearch = Application.FileSearch With fsoFileSearch .NewSearch .LookIn = "c:\" .Filename = strFileSpec .SearchSubFolde…