Bonjour,

J'ai fait un petit fichier vbs pour sauvegarder mes données sur DVD réinsciptible, j'utilise 7zip.exe pour compresser et nerocmd pour graver.

Mais évidement, je dois trouver un moyen de suspendre l'exécution du scipt afin d'attendre que la compression soit terminée pour commencer le gravage. Sachant que le délai d'attente dépend de la quantité de données à compresser, je cherche à suspendre jusqu'à ce que 7zip ai terminé son travail (suspendre un certain délai ne m'interesse donc pas) . Comment puis-je faire sans utiliser Wscript.Echo("Prêt ?"), qui nécessite ma présence ? (voici le script)
  
sub donnees()
 CheminProg = "C:\progra~1\7-zip\"
 wshell.Run CheminProg & "7z.exe a -tzip Daniel.zip @Daniel.txt -x@Exclus.txt"
 wshell.Run CheminProg & "7z.exe a -tzip Marie.zip @Marie.txt -x@Exclus.txt"
 wshell.Run CheminProg & "7z.exe a -tzip Mixte.zip @Mixte.txt -x@Exclus.txt"
 wshell.Run CheminProg & "7z.exe a -tzip Robert.zip @Robert.txt -x@Exclus.txt"
 Wscript.Echo("Prêt ?")
 wshell.Run "C:\progra~1\Ahead\Nero\NeroCmd.exe --write --drivename g --real --speed 4 --iso DONNEES -- detect_non_empty_cdrw --underrun_prot --dvd --recursive *.zip --force_erase_cdrw"
 Wscript.Echo("Prêt ?")
 Set FSO = CreateObject("Scripting.FileSystemObject")
 FSO.DeleteFile("*.zip")
 FSO.DeleteFile("neroerr.txt")
end sub

merci