[Resolvido]Executando um programa de um Formulário

Caros Mestres


Tenho um botão em um formulário que deve abrir um programa, mas agora com o Win7 apareceu um problema.
Quem usa o XP, a linha é:
C:\Arquivos de programas\Microsoft Games\Flight Simulator 9\FS9.EXE
Quem usa o Win7
C:\program files\Microsoft Games\Flight Simulator 9\FS9.EXE

Já tentei usar %programfiles% e não deu certo.

Alguma sugestão?

Private Sub FS9_Click()
On Error GoTo Err_FS9_Click

Dim stAppName As String

stAppName = "C:\Arquivos de programas\Microsoft Games\Flight Simulator 9\FS9.EXE"
Call Shell(stAppName, 1)

Exit_FS9_Click:
Exit Sub

Err_FS9_Click:
MsgBox Err.Description
Resume Exit_FS9_Click

End Sub

Desde já Grato pela ajuda.

estou a ver mal ou está a usar o camilnho que esta no XP:
C:\Arquivos de programas\Microsoft Games\Flight Simulator 9\FS9.EXE

substitua por:
C:\program files\Microsoft Games\Flight Simulator 9\FS9.EXE

Olá! Tente usar Program Files para todos. Esse termo costuma funcionar mesmo se a pasta estiver com o nome em português.

Amigos

Bom, como se diz da Microsoft, nunca é só isso...

o FS9 funciona em 32bits e no Win7 ele é instalado no caminho:
C:\program files(x86)\Microsoft Games\Flight Simulator 9\FS9.EXE

Existe algum caminho para isso ou terei que fazer duas teclas uma para XP e outra para Win7

Salvo engano, temos um exemplo que pega as informações do OS, incluindo o nome e a versão. Você pode usar isso para capturar o SO em uso automaticamente. Veja no tópico abaixo:

http://maximoaccess.forumeiros.com/t1903-informacoes-gerais-do-pc

Olá

Neste meu tutorial eu tenho um exemplo usando o environ() e o Dir(). Tente adaptar ao seu caso:

http://www.usandoaccess.com.br/tutoriais/tuto28.asp?id=1#inicio

Bom estudo!

Caro Avelino Sampaio

Seu Tutorial tem as repostas para essa inquietante pergunta.
Cabe a mim agora, primeiro entender a mecânica e depois aplica-la.

Muito Grato

Como sempre,

Mais uma resolvida...