Помогоде модифицировать код

[Rik3D]

Помогоде модифицировать код, чтобы на лист выводились только имена файлов офис, без путей.
Sub ror()
With Application.FileSearch
.NewSearch
.LookIn = "c:\Program files"
.FileType = msoFileTypeOfficeFiles
.SearchSubFolders = True
.Execute
For i = 1 To .FoundFiles.Count
Worksheets(4).Cells(i, 5) = .FoundFiles(i)
Next
End With
End Sub

[uhm]

Worksheets(4).Cells(i, 5) = Mid$(.FoundFiles(i), InStrRev(.FoundFiles(i), "\") + 1)

[Rik3D]

uhm, спасибо!
А как от расширения избавиться????

[uhm]

Точно так же, только ищешь InStrRev'ом точку и берешь кусок до нее. С расширением все чуть-чуть сложнее - его может не быть, например. Это надо проверять.

[Rik3D]

Спасибо!!!!!!!!!