[Resolvido]Aguardar fechar uma janela do DOS para abrir outra

Mestres,

Preciso que um sistema crie uma conexão VPN com um servidor e em seguida mapeie uma unidade de rede. Para isso, estou usando o seguinte código:

Código:


    Dim strAux As String
   
    Me.rotTexto.Caption = "Conectando-se ao servidor ..."
    strAux = "rasdial Conexao Usuario Senha"
    Call Shell(strAux, vbHide)
    Pausa (10) 'causa uma pausa de 10 segundos
       
    strAux = "net use R: /DELETE"
    Call Shell(strAux, vbHide)
    Pausa (3)

    Me.rotTexto.Caption = "Mapeando unidade R: ..."
    strAux = "net use R: \\192.168.2.40\Compart$ Senha /USER:Dominio\Usuario /PERSISTENT:yes"
    Call Shell(strAux, vbHide)
    Pausa(8)

    strAux = "Explorer R:"
    Call Shell(strAux, vbNormalFocus)
       
    Exit Sub


Como podem ver, estou usando uma função sleep (criada pelo mestre JPaulo) para dar um tempo entre uma janela e outra do DOS. Apesar de funcionar, desse modo o tempo pode ser muito longo ou muito curto entre uma ação e outra. Assim, gostaria de saber se há uma forma de fazer o Access aguardar que um comando seja finalizado (que a janela DOS seja fechada) para só então executar o próximo comando.

Muito obrigado pela atenção!

Faça assim, sendo que o tempo é sempre defenido por si;

Código:


Dim strAux As String
   
    Me.rotTexto.Caption = "Conectando-se ao servidor ..."
    strAux = "rasdial Conexao Usuario Senha"
    Call Shell(strAux, vbHide)
    Pausa (10) 'causa uma pausa de 10 segundos
    DoEvents
    strAux = "net use R: /DELETE"
    Call Shell(strAux, vbHide)
    Pausa (3)
    DoEvents
    Me.rotTexto.Caption = "Mapeando unidade R: ..."
    strAux = "net use R: \\192.168.2.40\Compart$ Senha /USER:Dominio\Usuario /PERSISTENT:yes"
    Call Shell(strAux, vbHide)
    Pausa (8)
    DoEvents
    strAux = "Explorer R:"
    Call Shell(strAux, vbNormalFocus)
    Exit Sub


Amigo JPaulo,

Mesmo acrescentando o DoEvents, se não colocar o sleep, uma janela acaba 'atropelando' a outra.
Acabei por fazer como sugerido por outro amigo: gerar um Bat com os comandos e chamá-lo ao final. Assim um comando aguarda o outro finalizar para iniciar.

Muito obrigado pela atenção e ajuda!