Есть конструкция
- Код: Выделить всё
With Application.FileSearch
.NewSearch
.Filename = "*" + ".xls"
.LookIn = path_2found
If .Execute > 0 Then
ffc = .FoundFiles.Count
Else
MsgBox "По заданным параметрам файлы не найдены!", vbExclamation
Exit Sub
End If
End With
На всех машинах пашет без проблем, а на одной .execute всегда возвращает 0
Как побороть - ума не приложу.
Везде стоит XP prof SP2, Excel 2003 SP3, на той машине, где не работает даже антивирус удалил - не помогло.
UPD. Проблема решилась остановкой сервиса "Служба индексации".