Abrir executáveis no Windows 95/98/2000/XP

[ℛiqu∊ 15]

'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:[email protected]", 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