Декларируем:
Private Declare Function apiShellExecute 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) As Long
Public Const WIN_NORMAL = 1 'Открыть в Normal
Public Const WIN_MAX = 2 'Открыть в Maximized
Public Const WIN_MIN = 3 'Открыть в Minimized
Private Const Error_SUCCESS = 32&
Private Const Error_NO_ASSOC = 31&
Private Const Error_OUT_OF_MEM = 0&
Private Const Error_FILE_Not_FOUND = 2&
Private Const Error_PATH_Not_FOUND = 3&
Private Const Error_BAD_FORMAT = 11&
Обращение к функции:
strFile - полный путь к файлу который требуется запустить
lShowHow - в каком виде будет открыто приложение (смотрите декларирование констант)
Function fHandleFile(stFile As String, lShowHow As Long)
Dim lRet As Long, varTaskID As Variant
Dim stRet As String
lRet = apiShellExecute(hWndAccessApp, vbNullString, _
stFile, vbNullString, vbNullString, lShowHow)
If lRet > Error_SUCCESS Then
stRet = vbNullString
lRet = -1
Else
Select Case lRet
Case Error_NO_ASSOC:
varTaskID = Shell("rundll32.exe shell32.dll,OpenAs_RunDLL " & stFile, WIN_NORMAL)
lRet = (varTaskID <> 0)
Case Error_OUT_OF_MEM:
stRet = "Error: Out of Memory/Resources. Couldn't Execute!"
Case Error_FILE_Not_FOUND:
stRet = "Error: File not found. Couldn't Execute!"
Case Error_PATH_Not_FOUND:
stRet = "Error: Path not found. Couldn't Execute!"
Case Error_BAD_FORMAT:
stRet = "Error: Bad File Format. Couldn't Execute!"
Case Else:
End Select
End If
fHandleFile = lRet & _
IIf(stRet = "", vbNullString, ", " & stRet)
End Function
Примеры использования:
Открыть папку: fHandleFile("C:\TEMP\",WIN_NORMAL)
Послать письмо: fHandleFile("mailto:dash10@hotmail.com",WIN_NORMAL)
Открыть URL: fHandleFile("http://home.att.net/~dashish", WIN_NORMAL)
Запустить приложение: fHandleFile("С:\Winnt\notepad.exe", Win_NORMAL)