Abrir aplicativo que não seja da MS pelo access

Question

Olá,

É possivel abrir um aplicativo que não seja da familia MS pelo access.

Estou usando a tecnica abaixo, mas ele retorna uma mensagem de que o arquivo não foi localizado.

Private Sub Comando35_Click()
On Error GoTo Err_Comando35_Click

    Dim stAppName As String

    stAppName = "ArcMap.exe"
    Call Shell(stAppName, 1)

Exit_Comando35_Click:
    Exit Sub

Err_Comando35_Click:
    MsgBox Err.Description
    Resume Exit_Comando35_Click
   
End Sub

Answer 1

Fabricio boa noite

 

Altere a linha    stAppName = "ArcMap.exe"

 

para

   stAppName = "c:\caminho\do\seu\programa\ArcMap.exe"

Teste ai e qqer coisa fale.

Att

---

Bruno Silva Leite Office Developer

Answer 2

Olá,

 

use o caminho completo do executável (conforme sugerido pelo outro colega). Uma outra boa alternativa (que prefiro) é usar a API ShelExecute: http://www.pptfaq.com/FAQ00479.htm

---

Luiz Cláudio Cosenza Vieira da Rocha - http://msmvps.com/blogs/officedev - IT Lab www.itlab.com.br