FileSearchを利用したサンプルmsdnのサイトより

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