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

[mar1boro]

Здравствуйте, есть макрос, успешно эксплуатировавшийся под 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

[Iska]

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

FileSystemObject

.

[Iska]

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

[mar1boro]

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