Форумы HiProg.com - MS ACCESS, VBA, VB

ник: ДрЮня
можно так попробовать

объявляем функцию (где-нибудь в модуле):

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)

вызываем:

dim res As Long, hwnd As Long     res = ShellExecute(hwnd, "open", "NOTEPAD.EXE", "имя_файла", "", SW_MAXIMIZED)     If res < 32 Then MsgBox "'ShellExecute' function error", vbExclamation