ShellExecute in MS Access
60Declaration
Const SW_SHOW = 1
Const SW_SHOWMAXIMIZED = 3
Public 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) As Long
Encapsulation
Sub RunProgram(ProgramPath As String, Optional args As String, Optional folder As String)
Dim RetVal As Long
On Error Resume Next
RetVal = ShellExecute(0, "open", ProgramPath, args, folder, SW_SHOWMAXIMIZED)
End Sub
PrintShare it! — Rate it: up down flag this hub
Usage
call RunProgram("iexplore.exe","http://www.google.com")
