miau
01 de Septiembre del 2004

estoy haciendo un pequeñoñ programa que servira de menu para una serie de archivos en word y ppt. El problemas es que cuando intento abrir cualquiera de los archivos, me da un error indicado que no encuentra la ruta. Que estoy haciendo mal. Este es el codigo


Private Sub Comando30_Click()
On Error GoTo Err_Comando30_Click

Dim stAppName As String

stAppName = "Powerpnt.exe G:\pro\ejemplo.pps"
Call Shell(stAppName, 1)

Exit_Comando30_Click:
Exit Sub

Err_Comando30_Click:
MsgBox Err.Description
Resume Exit_Comando30_Click

End Sub


Gracias

alex
01 de Septiembre del 2004

al parecer deberia se así

stAppName ="Powerpnt.exe G:\pro\ejemplo.pps"

y no así

stAppName = "Powerpnt.exe G:\pro\ejemplo.pps"


O no?

miau
01 de Septiembre del 2004

Pos tampoco, al final automatizare la tarea y se acabo el dilema

semper
01 de Septiembre del 2004

Necesitas especificar el path completo hacia la aplicacion a ejecutar, ademas del path completo del archivo a procesar ...
En el caso que pones seria algo asi (con el sistema operativo en ingles)...

SHELL "C:PROGRAM FILESMICROSOFT OFFICEOFFICEPOWERPNT.EXE" "g:protejemplo.pps", vbNormalFocus

Si el sistema operativo esta en español entonces cambiarias "Progam Files" por "Archivos De Programa" ...

Lo mismo va para cualquier aplicacion que quieras ejecutar a traves del SHELL ...