Вопрос № 149254: Доброго всем здоровья! Помогите, пожалуйста, средствами VB6 или VBA найти файл и поместить путь к нему в переменную. Если точнее, то мне необходимо находить на разных компьютерах путь к файлу MSACCESS.EXE для того, чтобы использовать его в фун...
Вопрос № 149.254
Доброго всем здоровья! Помогите, пожалуйста, средствами VB6 или VBA найти файл и поместить путь к нему в переменную. Если точнее, то мне необходимо находить на разных компьютерах путь к файлу MSACCESS.EXE для того, чтобы использовать его в функции Shell для запуска базы данных Аксесс из моей программки. Спасибо за помощь!
Отвечает: Тесленко Евгений Алексеевич
Здравствуйте, Alex Morozov! очевидно задача заключается не в поиске места расположения программы, а открытии с ее помощью определенного файла. Нет необходимости "...находить на разных компьютерах путь к файлу MSACCESS.EXE..." при использовании API функции.
Код:
Private
Declare Function ShellExecute& Lib "shell32.dll" Alias "ShellExecuteA" _ (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _ ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) Sub openAssociatedFile() Dim iErr& Dim filePath$ filePath = "C:... ...имя файла открываемого ассоциированной программой.ext" iErr = ShellExecute(0&, "Open", filePath, "
;", "", 1) Select Case iErr Case 0 'файл успешно открыт Case 2 'отсутствует файл Case 31 'тип файла не ассоциирован с приложением End Select End Sub
#thank 149254 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Оценка за ответ: 5 Комментарий оценки: Спасибо, Евгений. Попробую этот вариант.
Отвечает: Шичко Игорь
Здравствуйте, Alex Morozov! Предлагаю Вам такой алгоритм. проверил его для поиска файла MSACCESS.EXE в VBA Excel2003 Нашел его на http://www.microsoft.com/Rus/Msdn/Activ/MSVB/Archive/VBA/367.mspx Код в приложении
Приложение:
Ответ отправил: Шичко Игорь (статус: Студент)
Ответ отправлен: 02.11.2008, 21:38
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 149254 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Оценка за ответ: 4 Комментарий оценки: Спасибо Игорь, я изучал эти примеры, но не сумел применить :-(
Скажите "спасибо" эксперту, который помог Вам!
Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА
на короткий номер 1151 (Россия)
Номер ответа и конкретный текст СМС указан внизу каждого ответа.
* Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи.
(полный список тарифов)
** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
*** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.
