Conheça também: Onmasters . Ofertas . Divulgue! . Vai.la . Geraboleto . Baixa.la . Assista.la . Joga.la
» Início » Programação » Visual Basic » Passando um parâmetro na chamado do executável -->
 
Avaliação: | Publicado em: 14/09/2006
Passando um parâmetro na chamado do executável
Angelo Belchior Analista de Sistemas desde 2002, trabalha atualmente na Gemco Creative Software como Programador. Tem uma banda de Rock'n'Roll e dois cachorros: o Toy e o Buddy


'Força adeclaração de Variaveis
Option Explicit


Private Sub Form_Load()
    Dim sRetorno As String
    
    On Error GoTo trataErros
    
    'O método Command retorna os argumentos passados ao sistema
    'IMPORTANTE: PARA EFETUAR O TESTE DEVE-SE CRIAR UM EXECUTAVEL
    sRetorno = Command()
    
    'Verifica se foi passado algum argumento
    If Len(Trim(sRetorno)) > 0 Then
        'Verifica se é um Arquivo válido
        If UCase(Right(sRetorno, 3)) <> "TXT" Then
            MsgBox "PARAMETRO INVÁLIDO: " & sRetorno
        Else
            'verifica se o Arquivo Existe
            If Dir(sRetorno, vbArchive) <> "" Then
                'Chama o arquivo indicado na chamada do sistema
                'Note que o Notepad utiliza o mesmo recurso que o nosso.
                'Ele espera um parâmetro que é o caminho do arquivo que ele irá abrir.
                Shell "Notepad " & sRetorno
            Else
                MsgBox "ARQUIVO NÃO ENCONTRADO: " & sRetorno
            End If
        End If
    End If
    
'Caso ocorra algum erro...
trataErros:
    If Err.Number <> 0 Then
        MsgBox Err.Number & ":" & Err.Description & " -> " & Retorno
    End If
    
End Sub

Arquivos anexos ao artigo

Carlos <c_1984@mail.com>
Poxa.. bem legal....principalmente para fazer integrações com outros sistemas.

Parabéns
SÃO COISAS ASSIM SIMPLES E EFICIENTES QUE DEVEM SER SEMPRE LEMBRADAS E ENSINADAS!!!
ESTAVA PRECISANDO MUITO DESTA INFORMAÇÃO!

PARABENS!!!