Treze
|
SÃO VICENTE
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 17/12/2008 13:35 hs
Dim AbrirArquivo as String
AbrirArquivo = Shell("c:\windowsotepad.exe") '»»abre o programa notepad.
AbrirArquivo = Shell("c:\windowscalc.exe") '»»abre o programa calculadora.
AbrirArquivo = Shell("start c:\winntPescaria.bmp") '»»abre o arquivo Pescaria.bmp com o programa padrão.
AbrirArquivo = Shell("start iexplore www.uol.com.br") '»»abre o o programa internet explorer que abre o site do UOL.
AbrirArquivo = Shell("start mailto:seu_email@dominio.com.br") '»»abre o programa padrão p/ envio de mensagens de correio eletrônico que abre o site do UOL.
'-------------------------------------------------------------------------------------------------------------------------------
'E por assim vai...escolha o diretório, programa e arquivos que se deseja executar e abrir.
'Criada por:
'Vilmar Brazão de Oliveira
|
|
|
|
