27.11.2006, 10:24
общий
это ответ
Здравствуйте, Гробенюк Александр Александрович!
Поэксперементируйте вот с этим (из хелпа содрано и подредактировано):
Set fs = Application.FileSearch
With fs
.LookIn = "*"
.Filename = "*.xls"
If .Execute > 0 Then
MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Next i
Else
MsgBox "There were no files found."
End If
End With
Опорная точка - "LookIn"
Вроде работает...