ник: Анатолий (Киев)
FileSearch - дочерний объект фиблиотеки FSO. Попробуйте вместо Application.FileSearch использовать объект FileSearch , созданный с помощью CreateObject("Office.FileSearch") с помощью New при подключенной библиотеке.
ЗЫ. Сам бы давно проверил, но у меня нет А2007-2010. Этот совет давал много раз, но никто не сообщил результат.