WScript.Shell und blockierende Ausführung?

Question

Ich verwende WScript, um einige Aufgaben zu automatisieren, indem ich mit WScript.Shell externe Programme aufruft.

Im Moment wartet es jedoch nicht auf das Beenden des externen Programms und fährt stattdessen fort. Dies führt zu Problemen, da einige Aufgaben davon abhängig sind, dass andere zuerst fertig sind.

Ich verwende Code wie:

ZipCommand = "7za.exe a -r -y " & ZipDest & BuildLabel & ".zip " & buildSourceDir 

Set wshShell = WScript.CreateObject("Wscript.Shell") 
wshShell.run ZipCommand 

Gibt es eine Möglichkeit, dies zu tun, so dass es blockiert, bis die Shell ausgeführt Programm kehrt?

Answer 1

Wenn Sie die "Exec" -Methode verwenden, wird eine Referenz zurückgegeben, sodass Sie die Eigenschaft "Status" abfragen können, um festzustellen, wann sie abgeschlossen ist. Hier ist ein Beispiel von msdn:

Dim WshShell, oExec 
Set WshShell = CreateObject("WScript.Shell") 

Set oExec = WshShell.Exec(ZipCommand) 

Do While oExec.Status = 0 
    WScript.Sleep 100 
Loop 

Answer 2

Es stellte sich heraus, dass während Schleife schwere CPU hog: P

ich einen besseren Weg gefunden:

ZipCommand = "7za.exe a -r -y " & ZipDest & BuildLabel & ".zip " & buildSourceDir 

Set wshShell = WScript.CreateObject("Wscript.Shell") 

wshShell.Run ZipCommand,1,1 

Die letzten beiden Argumente sind zeigen Fenster und Blockausführung :)