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 .SearchSubFolders = False .FileType = msoConditionFileTypeAllFiles If .Execute() > 0 Then For Each varFile In .FoundFiles strFileList = strFileList & varFile & vbCrLf Next varFile End If End With MsgBox strFileList End Function