ник: Силblч
но вам же никто не мешает вместо удаления применить получение полного пути к файлу? :)
VBA
'?fnFilePath("C:\Program Files\Far","Far.exe")
Function fnFilePath(spath, fnam)
With Application.FileSearch
.NewSearch
.LookIn = spath
.SearchSubFolders = True
.filename = fnam
.MatchTextExactly = False
.FileType = 1 'msoFileTypeAllFiles
If .Execute() > 0 Then
fnFilePath = .FoundFiles(1)
End If
End With
End Function
|
VBS можно использовать Scripting.FileSystemObject