Passando um parâmetro na chamado do executável, por Angelo Belchior

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

Passando um parâmetro na chamado do executável

'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

Command.zip

Carlos <c_1984@mail.com>

Poxa.. bem legal....principalmente para fazer integrações com outros sistemas.

Parabéns

Tiago Neves <contatos@maiatecnologia.com.br>

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

PARABENS!!!

Eu <eu@eu.com>

Legal ! Sempre quiz saber como se fazia isso =)

OBS: Poderia colocar no exemplo um textbox com multiplas linhas e scroolbars para realmente abrir um arquivo txt.