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
Enum Ansicht
SW_HIDE = 0 ' Versteckt öffnen
SW_NORMAL = 1 ' Normal
SW_MAXIMIZE = 3 ' Maximiert öffnen
SW_MINIMIZE = 6 ' Minimiert öffnen
End Enum
Sub ObenDatei()
Dim sPfad As String
sPfad = "C:\Programme\xc.bat"
Call ShellExecute(0, "open", sPfad, "", "", Ansicht.SW_NORMAL)
End Sub
Gruß Tino
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
Sub ObenDatei()
Dim sPfad As String
sPfad = "C:\Programme\xc.bat"
Call ShellExecute(0, "open", sPfad, "", "", 1)
End Sub
Ist halt etwas einfache, wenn man weis welche Konstante (Long Zahl) für welche Option steht.
Gruß Tino