WScript.Shell ve engelleme yürütmesi?

Question

Bazı programları otomatikleştirmek için, harici programları çağırmak üzere WScript.Shell'i kullanarak WScript kullanıyorum. Ancak, şu anda harici programın bitmesini beklemiyor ve bunun yerine devam ediyor. Bu, sorunlara neden oluyor çünkü bazı işleri ilk bitiren diğerlerine bağlıyım. gibi

kullanıyorum kodu:

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

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

kabuk uygulanan program dönene kadar bu nedenle blok bunu yapmanın bir yolu var mı?

Answer 1

"Exec" yöntemini kullanırsanız, bir başvuru döndürür, böylece "Status" özelliğini tamamlandığında belirlemek için özelliği yoklayabilirsiniz.

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

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

wshShell.Run ZipCommand,1,1 

son iki argüman Göster penceresi vardır: P

Daha iyi bir yol buldum:

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

Set oExec = WshShell.Exec(ZipCommand) 

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

Answer 2

döngü şiddetli CPU domuz olmasına karşın, çıkıyor: İşte msdn bir örnektir ve Blok Yürütme :)