VBNet - Форум - FileSearch не работает в Office XP :(

Вопрос: FileSearch не работает в Office XP :( Добавлено: 08.02.06 14:37

Автор вопроса: Garrick

Использовал в проге на VBA под Office 2000 функцию поиска файла для определения, установлен ли Excel в компе. Та же самая функция в Office XP ничего не находит и пишет, что "Excel не найден".

With Application.FileSearch
  .LookIn = "c:\Program Files\Microsoft Office\"
  .LookIn = "d:\Program Files\Microsoft Office\"
  .LookIn = "e:\Program Files\Microsoft Office\"
  .SearchSubFolders = True
  .FileName = "EXCEL.EXE"
    If .Execute > 0 Then
   ExcelPath = .FoundFiles(1)
  Else
    MsgBox "Microsoft Excel не установлен"
  End If
End With

В чем может быть дело?
Или посоветуйте другой вариант решения проблемы.
Ответить

Ответы Всего ответов: 8

Номер ответа: 1 Автор ответа: GeorgeGA Вопросов: 1 Ответов: 101	Профиль \| Цитата \| #1	Добавлено: 08.02.06 15:24
	у тебя проблема в том,что ищет он только в e:\Program Files\Microsoft Office\,т.к.это последнее прискаивание места поиска Ответить

Номер ответа: 2 Автор ответа: GSerg Вопросов: 0 Ответов: 1876	Профиль \| Цитата \| #2	Добавлено: 08.02.06 15:27
	Весёлый способ... ха-ха... Такой вопрос: для чего может понадобиться искать excel, если он создаётся через createobject("excel.application"? Ответить

Номер ответа: 3 Автор ответа: GeorgeGA Вопросов: 1 Ответов: 101	Профиль \| Цитата \| #3	Добавлено: 08.02.06 15:30
	а вообще,есть более красивые методы,даже не использую api,к примеру создаёшь объект ...excel,если не создаст,то excel'я нет Ответить

Номер ответа: 4 Автор ответа: GeorgeGA Вопросов: 1 Ответов: 101	Профиль \| Цитата \| #4	Добавлено: 08.02.06 15:32
	ну GSerg ты резвый,не успел сделать добавление, ты уже свои комменты пишешь Ответить

Номер ответа: 5 Автор ответа: Garrick Вопросов: 4 Ответов: 8	Профиль \| Цитата \| #5	Добавлено: 08.02.06 15:55
	Действительно, ищет по последнему пути. Мне все-равно необходимо определять путь установки Excel. Тогда вопрос: А как в одно свойство LookIn записать несколько путей? И почему в предыдущих версиях офис работало с несколькими свойствами? Ответить

Номер ответа: 6 Автор ответа: GSerg Вопросов: 0 Ответов: 1876	Профиль \| Цитата \| #6	Добавлено: 08.02.06 17:09
	Значит, предыдущие версии были в последнем пути... Вопрос, однако, остаётся актуальным: зачем искать, если он создаётся через createobject? with createobject("excel.application" msgbox .path .quit end with Ответить

Номер ответа: 7 Автор ответа: Garrick Вопросов: 4 Ответов: 8	Профиль \| Цитата \| #7	Добавлено: 09.02.06 10:29
	Спасибо! Ответить

Номер ответа: 8 Автор ответа: Garrick Вопросов: 4 Ответов: 8	Профиль \| Цитата \| #8	Добавлено: 09.02.06 10:42
	А может тогда есть и способ попроще, чем я использую, чтобы определить местоположение AutoCAD? Ответить

Страница: 1 |