ник: ial52
Не желает работать, ругается на Application.FileSearch
Может кто знает как изменить под 2010?
With Application.FileSearch
.LookIn = DefaultDir
.FileType = msoFileTypeAllFiles
.FileName = "*.*"
.Execute
For Y = 1 To .FoundFiles.Count
If Right(.FoundFiles(Y), FNLENGTH + 4) = vivafilename Then
gefunden = True
End If
Next Y
End With