Sub findFile()
With Application.fileSearch
.NewSearch
.LookIn = "c:\"
.FileName = "mydb.mdb"
.SearchSubFolders = True
If .Execute() > 0 Then
MsgBox "The file " & .FoundFiles(1) & " was found"
Else
MsgBox "The file is not found"
End If
End With
End Sub