Attendre qu'une commande shell sois terminer avent de passer a la ligne de code

Question

salutation a tous. Dans la programation d'un logiciel backup cibler sur fichiers. je cherche le moyen d,attendre la fin d,une commande shell avent de passer a une autre. dans ce ka si il sajit d'un bon vieux pkzip.


Dim RetVal
RetVal = Shell("pkzip C:	est.zip c:	est.ut2", 1)
' avent que la ligne suivante sois executer,, je veux terminer la commande shell precedante

MsgBox "done"



pour ceux qui serais tenter de me dire d'utiliser un module de compression pour remplacer ma commande  shell. je desire ne pas avoir recour a cette solution. 

un gros Merci,
                   SgtJazz

SgtJazz · Answer

j'ai oublier de specifier que toutes les sources qui parle du sujet fonctionne seulement si il n'y a pas de parametre
si je fesais shell("pkzip",1) ca fonctionnerais mais Shell("pkzip C:	est.zip c:	est.ut2", 1) ca marche pas 

des sugestions?

un gros Merci,
                   SgtJazz

gaa179 · Answer

Salut,

J'ai trouvé un module qui permet d'exécuter une commande shell et d'attendre la fin du process. Donne mopi ton adresse e-mail pour que je puisse te l'envoyer.

A+

cs_EBArtSoft · Answer

Petite implementation simple du ShellWait :

Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long

Sub ShellWait(ByVal vCommand As String)
    Dim mPath    As String
    Dim mProcess As Long
    Dim mRet     As Long
    Dim mPID     As Long
    mPath = String(1024, 0)
    GetShortPathName vCommand, mPath, Len(mPath)
    mPath = Left$(mPath, lstrlen(mPath))
    mPID = Shell(mPath, vbNormalFocus)
    mProcess = OpenProcess(&H1F0FFF, 0, mPID)
    Do
        mRet = WaitForSingleObject(mProcess, 1000)
        If mRet <> &H102& Then Exit Do
        DoEvents
    Loop
    CloseHandle mProcess
End Sub

@+

E.B.

crenaud76 · Answer

J'ai déposé une source sur ce sujet ici même

Christophe R.

Attendre qu'une commande shell sois terminer avent de passer a la ligne de code

4 réponses

Discussions similaires