Problem:
- Code: Select all
If Run(@ComSpec & " /D /C Update.cmd" & $options, $scriptdir, @SW_HIDE) = 0 Then
If ShowGUIInGerman() Then
MsgBox(0x2010, "Fehler", "Fehler #" & @error & " beim Aufruf von" _
& @LF & @ComSpec & " /D /C Update.cmd" & $options & " in" _
& @LF & $scriptdir & ".")
Else
MsgBox(0x2010, "Error", "Error #" & @error & " when calling" _
& @LF & @ComSpec & " /D /C Update.cmd" & $options & " in" _
& @LF & $scriptdir & ".")
EndIf
Vorschlag zur Behebung:
- Code: Select all
If Run(@ComSpec & " /D /C Update.cmd" & $options, $scriptdir, @SW_HIDE) = 0 Then
$err = @error
If ShowGUIInGerman() Then
MsgBox(0x2010, "Fehler", "Fehler #" & $err & " beim Aufruf von" _
& @LF & @ComSpec & " /D /C Update.cmd" & $options & " in" _
& @LF & $scriptdir & ".")
Else
MsgBox(0x2010, "Error", "Error #" & $err & " when calling" _
& @LF & @ComSpec & " /D /C Update.cmd" & $options & " in" _
& @LF & $scriptdir & ".")
EndIf
Grüße
Dalai