[решено] Чем заменить 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 (http://msdn.microsoft.com/en-us/library/6kxy1a51(v=vs.84)).

[mar1boro]

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

[Delirium]

http://social.msdn.microsoft.com/Forums/en-US/isvvba/thread/a450830d-4fc3-4f4e-aee2-03f7994369d6/

Там есть пример как работает в 2007:
Dim fso, msg
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists("d:\Общие\Презентации\город.ppt" )) Then
msg = "файл есть"
Else
msg = "файла нет"
End If