[Resolvido] Comando Shell

[Thyrriee 0]

Olá!

 

Seguinte:

 

estou fazendo um programa q possibilita acessar e executar mais de uma centena de opções (algumas, inclusive, ocultas e desconhecidas da maior parte das pessoas) no Windows XP. Eu utilizo a função Shell para executar os programas como o teclado virtual (osk.exe) e calculadora (calc.exe), por exemplo.

 

O problema: arquivos que não possuam a extensão .exe ou .bat, como por exemplo, o arquivo appwiz.cpl (que abra a janela Adicionar/remover programas) ou a extensão .msc não funcionam (e várias opções e aplicativos do Windows possuem essas extensões...). Qdo rodo o aplicativo, o VB dah o seguinte erro: Run-time error 53: File not found.

 

Detalhe: colocar a extensão (.bat, .exe, .cpl) é opcional, pois, por exemplo, para executar a calculadora, basta utilizar Shell ("calc") sem extensão. Tentei adicionar o caminho do arquivo .cpl e também naum funfa.

 

Alguem tem alguma ideia de como executar arquivos que naum sejam .exe e .bat???

 

O código usado (e q funciona) eh muito simples:

 

Private Sub cmdExecutar_Click()

Shell ("osk")

End Sub

 

Mas o mesmo naum funciona para:

 

Private Sub cmdExecutar_Click()

Shell ("appwiz.cpl")

End Sub

[scorpio 7]

Experimente criar um .BAT que chama essas funcionalidades.

[Thyrriee 0]

Experimente criar um .BAT que chama essas funcionalidades.

 

Boa idéia!

Assim eu executo o arquivo .bat através da função Shell, e o arquivo . bat chama e executa o arquivo desejado.

 

Vou testar e depois respondo o que virou! Valeu msm!!!

[Thyrriee 0]

Experimente criar um .BAT que chama essas funcionalidades.

 

Deu certo!!! Vlw!!!

[scorpio 7]

Beleza!