Ich führe eine Shell-Aufruf durch
Shell "ftp -s:" ....
Gibts eine Möglichkeit, mit der weiteren Ausführung so lange zu warten, bis die Shell wieder
geschlossen ist?
Ich befürchte ja, dass nicht :(
Best,
Tobias
CreateObject("WScript.Shell").Run "ftp -s:", 1, True
Gruß Ingolf
Public Sub SartShell_Wait(cmdline$)
Dim proc As PROCESS_INFORMATION
Dim start As STARTUPINFO
Dim ReturnValue As Integer
' Initialisiert die STARTUPINFO Struktur:
start.cb = Len(start)
' Startet die Shell-Anwendung:
ReturnValue = CreateProcessA(0&, cmdline$, 0&, 0&, 1&, _
NORMAL_PRIORITY_CLASS, 0&, 0&, start, proc)
' Wartet bis Shell-Anwendung geschlossen ist:
Do
ReturnValue = WaitForSingleObject(proc.hProcess, 0)
DoEvents
Loop Until ReturnValue 258
ReturnValue = CloseHandle(proc.hProcess)
End Sub
Sub undlos()
Call SartShell_Wait("calc.exe") 'als Beispiel
MsgBox " ich bin jetzt weg "
End Sub
(...)
'Try 3: StartShell
Call StartShell_Wait("ftp -s:" & shortpath & "\sync.txt " & Worksheets("Einstellungen").[ _
A3], showshell) Fehler " Falsche Anzahl an Argumenten..." Taucht hier auf
MsgBox "Diese MsgBox sollte erst auftauchen, wenn das Shell-Fenster geschlossen wurde"
Beste Grüsse,
Tobias