Полный путь файла

[Rik3D]

Как с помощью FileSearch получить путь к искомому файлу?
Если в папке 123 еспь под папка, а в ней файл 555. Как мне получить полный путь файла?

Код: Выделить всё

Private Sub CommandButton2_Click()
With Application.FileSearch
.NewSearch
.Filename = "555"
.LookIn = "C:\123"
.FileType = msoFileTypeAllFiles
.SearchSubFolders = True
.Execute msoSortByFileName
End With
UserForm1.Hide
End Sub

[Димитрий]

If .FoundFiles.Count>0 Then MsgBox .FoundFiles(1)

[Rik3D]

Спасибо!