DOS Datei per VBA öffnen
Giuseppe
Ich möchte gerne eine DOS Datei per VBA öffnen.
Dazu habe ich folgendes Makro.
Leider wird diese Datei nicht gestartet.
Mit allen anderen Dateien funktioniert das Makro.
Speziell bei dieser Datei ist, dass es auf J:\JetIOpen\4jsbin ausgeführt wird...
Kann man diese Eigenschaft im Makro ergänzen?
Vielen Dank für die Hilfestellung
Mit freundlichen Grüssen
Giuseppe
Option Explicit
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 JET_Starten()
ShellExecute Application.hwnd, "Open", "J:\JetIOpen\runner\fglext73.exe BG", _
vbNullString, vbNullString, vbNormalFocus
End Sub
Anzeige