Estou com dificuldade de executar o comando arj32.exe no diretorio escolhido

 

exe:

 

        Origem = Trim(DataTabela.Recordset("Origem"))
        ChDir Origem
        Destino = Trim(DataTabela.Recordset("Destino"))
        idProg = Shell(Origem & ("Arj32 a -r ") & pArquivo & ".arj", vbMinimizedFocus)
        hProg = OpenProcess(PROCESS_ALL_ACCESS, False, idProg)
        GetExitCodeProcess hProg, iExit

 

ele esta executando no diretorio:

C:Arquivos de programasMicrosoft Visual StudioVB98

 

desde ja agradeço

 

 

Ele esta dando erro. Qual ?

 

Nao esta faltando a  no final do diretorio. Assim

Origem = "c:     este"

Desta forma o comande deveria ser.

 

  idProg = Shell(Origem & "Arj32 a -r " & pArquivo & ".arj", vbMinimizedFocus)