WScript.Shell et l'exécution de blocage?

Question

J'utilise WScript pour automatiser certaines tâches, en utilisant WScript.Shell pour appeler des programmes externes.

Cependant, pour l'instant, il n'attend pas que le programme externe se termine et se déplace à la place. Cela cause des problèmes parce que j'ai certaines tâches dépendantes des autres qui terminent en premier.

J'utilise le code comme:

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

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

Est-il possible de le faire de sorte qu'il bloque jusqu'à ce que le shell exécuté programme retourne?

Answer 1

Si vous utilisez la méthode "Exec", elle renvoie une référence, vous pouvez donc interroger la propriété "Status" pour déterminer quand elle est terminée. Voici un exemple de 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

fin de compte, que si la boucle est porc CPU grave: P

J'ai trouvé une meilleure façon:

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

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

wshShell.Run ZipCommand,1,1 

Les deux derniers arguments sont Afficher la fenêtre et l'exécution de bloc :)