USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página