[VB6] funzione shell

[Cholo]

ciao a tutti,
sto scrivendo un programma (Visual Basic 6) che tramite un ciclo for, chiama ripetutamente un altro programma tramite il comando shell.

Il problema è che li lancia praticamente tutti contemporaneamente, mentre io vorrei che li lanci sequenzialmente, l' uno al terminare dell' altro.

Certo potrei mettere una Sleep ... ma non è che questa soluzione mi piaccia molto

IN PRATICA: C' è un modo per fermare l' esecuzione del programma fino a quando non ne è terminato un altro ?

[xegallo]

whaitforsingleobject

[Cholo]

Originariamente inviato da xegallo
whaitforsingleobject

Se ho capito bene posso usarla così, giusto ? :

shell("...")
WaitForSingleObject (...,...)
shell("...")
WaitForSingleObject (...,...)


Non mi è chiaro però che argomenti devo passare alla funzione:

WaitForSingleObject(ByVal hHandle As Long, ByVal dwMilliseconds As Long)

[Cholo]

Vabbé, dovrei aver risolto.

All' incirca così :

Dim id
Dim idProc
Dim lReturn

    For i = 0 To UBound(arrFile)
        id = Shell(arrFile & "..." , vbMaximizedFocus)
        idProc = OpenProcess(&H100000, True, id)
        Do
            DoEvents
            lReturn = WaitForSingleObject(idProc, 0)
            If (lReturn = 0) Then
                Exit Do
            End If
        Loop
    Next

Grazie Xegallo