WScript.Shell и блокирование выполнения?

Question

Я использую WScript для автоматизации некоторых задач, используя WScript.Shell для вызова внешних программ.

Однако, сейчас он не ждет завершения внешней программы и вместо этого переходит. Это вызывает проблемы, потому что у меня есть некоторые задачи, зависящие от других, заканчивающих работу в первую очередь.

Я использую такой код:

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

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

Есть ли способ, чтобы сделать это так, он блокирует до оболочки выполняется возвратов программы?

Answer 1

Если вы используете метод «Exec», он возвращает ссылку, поэтому вы можете опросить свойство «Статус», чтобы определить, когда оно будет завершено. Вот пример из 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

Оказывается, что в то время как петля серьезна CPU боров: P

Я нашел лучший способ:

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

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

wshShell.Run ZipCommand,1,1 

Последние два аргумента Показать окно и Block Execution :)