Поиск решения в Excel 2007/2010 (из макроса 2003)

[Dubai]

В Excel 2007/2010 не выполняется этот код VB для Excel 2003. Даёт ошибку выполнения.

Что нужно изменить, чтобы он работал ?

Нужна при запуске проверка наличия файла в указанной директории.

Выполнение макросов во всех версия разрешена (Безопасность - низкая)

 

found7 = False

With Application.FileSearch

.LookIn = "C:\data"

.Filename = "options.ini"

If .Execute() > 0 Then

found7 = True

End If

End With

Изменено 19 мая, 2012 пользователем Dubai

[Skarbovoy]

Dim fso As Variant
Dim found7 As Boolean
Set fso = CreateObject("Scripting.FileSystemObject")
found7 = fso.FileExists("C:\temp\options.ini")

 

p.s.

Поиск решения в Excel - это чуть другое

http://forum.kasperskyclub.ru/index.php?showtopic=35079

[Dubai]

Поиск решения в Excel - это чуть другое

 

Да, торопился на работу, взял похожее предыдущее название темы.

 

Всё работает, спасибо. И в 2003 и в 2007/2010 версиях.

Изменено 19 мая, 2012 пользователем Dubai