[Manual]Passando um parâmetro na chamado do executável

[helldanger1]

'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