Объект filesearch. Проблема с поиском на локальных дисках.

[Aerton]

Доброго времени суток!
Есть следующий простейший код:
Set fs = Application.FileSearch
With fs
.LookIn = "C:\"
.FileName = "1.xls"
If .Execute = 0 Then
MsgBox "Файл не найден"
Else
MsgBox "OKKKKKKKKK"
End If
End With
Срабатывает на всех компах кроме одного. И на этом работает только в случае, если в Lookin задается путь на флешке или на сетевых дисках. На диске С или D ну никак не находит файл 1.xls (он там точно лежит ). Похоже что-то в системе, но что????

[KL]

FileSearch имеет дурную славу уже на протяжении нескольких лет именно из-за непредсказуемости результатов поиска:

- Все программисты в VBA из-под Excel, которых я знаю давно не используют этот метод

- Джон Уокенбах (имя в VBA программировании для Excel) поубирал из своих последних книг и веб-сайта все примеры с FileSearch

- Микрософт в Office2007 заблокировал (хотя и не удалил) этот метод

Факты - вещь упрямая.