Continuar Rodando O Programa Ao Usar O Comando Shell

[Guest - Gabriel -]

Olá pessoal,

Fiz um botão que ao clicar, execute o seguinte:

Shell App.Path & "\outroexecutavel.exe", vbNormalFocus

O código funciona, o "outroexecutavel.exe" é executado, mas o meu programa (o que no caso contem o botão que foi clicado) é fechado. Teria alguma maneira deu abrir um outro executavel e continuar com meu programa rodando?

Obrigado.

[Graymalkin]

O que vem depois do Shell? O seu programa *não* vai sair sozinho, a menos que ocorra algum erro ou que você explicitamente mande sair.

Abraços,

Graymalkin

[Guest Visitante]

Esta assim:

Private Sub meubotao_Click(Index As Integer)

On Error GoTo erro:

Shell App.Path & "\meuexecutavel.exe", vbNormalFocus

End

erro:

MsgBox "Executavel não encontrado", vbCritical

End Sub

Abraços.

[Graymalkin]

Foi o que eu disse anteriormente, você está mandando o seu programa sair na linha do "End". Retire esta linha e ele não vai sair:

Private Sub meubotao_Click(Index As Integer)
On Error GoTo erro:
    Shell App.Path & "\meuexecutavel.exe", vbNormalFocus
    ' --> End <-- Esta linha manda o programa ser encerrado

erro:
    MsgBox "Executavel não encontrado", vbCritical
End Sub

Certo? ;)

Graymalkin

[kuroi]

o certo seria trocar o End por Exit Sub senao ele vai mostrar a mensagem do erro

[Guest Visitante]

MUITO Obrigado pela ajuda amigos...

Funcionou usando o Exit Sub.