Ayuda con ejecutable

[vele]

Hola maestros, necesito de su ayuda, quisiera saber o si alguien me puede ayudar para realizar un pequenio programa que ejecute un archivo (archivo.pps), el cual debe ser un archivo ejecutable. Espero me puedan ayudar, es la unica forma que tengo de poder terminar un trabajo.

[HiTek]

Holas vele esto te sirve pra abri cualquier archivo siempre y cuando este instalada la aplicación que lo pueda ejecutar, puedes ver en la Variable RetVal el valor que regresa si no está instalada la aplicación o si el archivo no tiene el nombre especificado y asi controlar esos errores...salu2

Código PHP:

  Private Sub Command1_Click()
    Call AbrePDF("test.pps")
End Sub
 
Sub AbrePDF(MiArchivoPPS As String)
    RetVal = ShellExecute(Me.hWnd, vbNullString, MiArchivoPPS, vbNullString, App.Path & "\\", SW_SHOWMAXIMIZED)
    RetVal = ShellExecute(Me.hWnd, vbNullString, MiArchivoPPS, vbNullString, App.Path & "\\", SW_SHOWMAXIMIZED)
End Sub 
   

y en un Módulo colocas esto

Código PHP:

  Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long