Здравствуйте, _dTb_! Shell не будет работать с не-exe файлами. Исользуйте ShellExecute, например: 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) Private Declare Function GetDesktopWindow Lib "user32" () As Long Const SW_SHOWNORMAL = 1 Private Sub Command1_Click() Call ShellExecute(GetDesktopWindow, "Open", "C:windowshelpaccess.chm", "", "c:", SW_SHOWNORMAL) End Sub
Удачи! Ответ отправлен: 29.10.2004, 02:42 Отправитель: Licvidator
Форма отправки вопроса
Внимание!
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+
или отправлять вопросы с сайта по адресу:
http://rusfaq.ru/cgi-bin/Message.cgi.