[решено] Чем заменить Application.FileSearch в Excel 2007?

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

- - [решено] Чем заменить Application.FileSearch в Excel 2007? (http://forum.oszone.net/showthread.php?t=242140)

Чем заменить Application.FileSearch в Excel 2007?

Здравствуйте, есть макрос, успешно эксплуатировавшийся под excel 2003, но возникла обходимость перейти на excel 2007 и там этот макрос не работает. Все дело в том, что в 2007 пропал объект Application.FileSearch. Необходимо заменить блок, использовавший тот объект, на другой, чтобы код поддерживался в excel 2007. Я в VBA как свинья в апельсинах, посему обращаюсь к вам. Код крохотный, великодушно надеюсь, что кто-нибудь найдет минутку помочь.

Исходный код:

Код:

        

        Application.FileSearch.Filename = Город & ".ppt"

        Application.FileSearch.LookIn = "d:\Общие\Презентации"

        

        

        'If Application.FileSearch.Execute > 0 Then

        'Cells(i, 10) = Application.FileSearch.FoundFiles.Count

        'End If

Переходите к использованию объекта автоматизации «Scripting.FileSystemObject»: FileSystemObject.

Iska, я не программист, к сожалению. Мне просто нужна помощь чтобы указанную часть кода выразили другими объектами и я мог дальше пользоваться этим макросом. К сожалению, "удочки" мне недостаточно, дайте, пожалуйста, рыбу :)

http://social.msdn.microsoft.com/For...-03f7994369d6/

Там есть пример как работает в 2007:

Код:

Dim fso, msg

   Set fso = CreateObject("Scripting.FileSystemObject")

   If (fso.FileExists("d:\Общие\Презентации\город.ppt" )) Then

      msg = "файл есть"

   Else

      msg = "файла нет"

   End If