|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Windows)
|
|
 |
Título da Dica: Abrir executáveis no Windows 95/98/2000/XP.
|
 |
|
|
|
Postada em 20/4/2007 por Vilmar Brazão
'Os exemplos abaixo demonstram como abrir executáveis no Windows 95/98/2000/XP.
'Troque o pipe (|) por barra invertida.
Private Sub Command1_Click()
Dim AbrirPrograma
AbrirPrograma = Shell("C:|WINDOWS|system32|cmd.exe /C start mailto:seu@email.com.br", vbNormalFocus)
End Sub
Private Sub Form_Load()
Dim AbrirPrograma
AbrirPrograma = Shell("C:|Arquivos de programas|Adobe|Acrobat 6.0|Reader|AcroRd32.exe metodologia.pdf", vbMaximizedFocus)
AbrirPrograma = Shell("C:|Arquivos de programas|Internet Explorer|IEXPLORE.EXE www.vilmarbro.eti.br", vbNormalFocus)
End Sub
|
|
|
|
|
