Executando um programa DOS em um ambiente DOS !!! 

Talvez , algum dia , você vá precisar executar um programa DOS . E ai ? Como fazer isto no Visual Basic ?

 

Creio que com um exemplo as coisas fiquem mais claras. Vou mostrar como executar o programa compactador/descompactador ARJ.EXE ( lembra dele ??) em um programa VB.

 

1-) Inicie um novo projeto no Visual Basic e insira quatro botôes de comandos : cmd1 , cmd2 , cmd3 e cmd4.

  1. Cmd1 - Vai abrir uma nova Janela DOS

  2. Cmd2 - Irá executar o arquivo ARJ.EXE

  3. Cmd3 - Irá executar o arquivo ARJ.EXE e após o término da execução a janela DOS será fechada.

  4. Cmd4 - Irá executar o arquivo ARJ.EXE no modo invisível.  A janela DOS não será exibida.

2-) Vejamos agora o código associado ao evento Click da cada botão de comando::

 

Cmd1 : 

 

Private Sub Cmd1_Click()
    Shell ("command.com"), vbMaximizedFocus
End Sub
Código do botão de comando Cmd1 - Abre uma nova janela DOS Maximizada.

Cmd2:

Private Sub Cmd2_Click()
' O parâmetro  "/k"  força a execução do arquivo sem fechar a janela DOS depois da execução do arquivo
    Shell ("command.com /k c:\arj.exe"), vbMaximizedFocus
End Sub

Código do botão de comando - Cmd2 - Executa o arquivo e mantém a janela DOS aberta

Cmd3:

Private Sub Cmd3_Click()
' O parâmetro "/c"  força o ambiente DOS a executar o arquivo e fechar a janela DOS após o seu término.
    Shell ("command.com /c  c:\arj.exe"), vbMaximizedFocus
End Sub

Código do botão de comando - Cmd3 - Executa o arquivo ARJ.EXE  e fecha a janela em seguida

Cmd4:

Private Sub Command4_Click()
' vbHide - o arquivo é executado sem abrir a janela DOS
    Shell ("command.com /c  c:\arj.exe"), vbHide
End Sub
Código do botão de comando - Cmd4 - Executa o arquivo ARJ.EXE  sem abrir a janela DOS (se voce achar isto muito feio ! )

Obs: Podemos usar os seguintes parâmetros  relacionados com o modo da janela DOS

Gostou ?  Até a próxima...