Discussion :

[ledebutant07]

Bonjour,

Sous Vb2005 express

Dans une appli je compresse des fichiers avec winrar et je veux attendre la fin de compression pour continuer l'excution de mon appli.

Comment faire je suis planter.......

d'avance merci à tous pour vos précieux conseils....

Ledebutant07

[ledebutant07]

je rajoute un bout de mon code


Dim wsh AsObject
wsh = CreateObject("WScript.Shell")

wsh.Run("winrar m -afzip -ibck -r -t -df FileCreate *.* ")

? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?---------comment coder l'attende de fin de compression avant de renommer ?

rename ("filcreate.zip", "toto.zip")


Merci de me filer un coup de main
Cordialement.
ledebutant07

[bidou]

la méthode Run doit avoir un paramètre bWaitOnReturn qui doit permettre l'exécution synchrone

[ledebutant07]

je n'arrive pas trouvé
message "bwaitonreturn" n'est pas dans la bibliothèque de wsh

je continu à chercher.

Cordialement

ledebutant07

[bidou]

essayes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

wsh.Run("winrar m -afzip -ibck -r -t -df FileCreate *.* ",1,True)

[ledebutant07]

essayes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

wsh.Run("winrar m -afzip -ibck -r -t -df FileCreate *.* ",1,True)

C'est bien cela qu'il faut faire merci je vais pouvoir avancer dans mon appli

bon dev

ledebutant07