Duda Sobre App.path

Question

hola a todos :) bueno soy  nuevo en Visual basic 6 :)

y me gustaria saber como utilizar bien App.path porque estoy creando una aplicacion para que me :( me ejecute los juegos que tengo en mi usb... 
la estructura la tengo Asi:

proyecto.Exe

"Juego" y dentro de esa carpeta

Estan otras SubCarpeta con los juegos Por Ejemplo Mijuego.exe

la ruta seria algo asi como juegos\el juego\Mijuego.exe 

 

el código que tengo es el siguiente 

On Error GoTo error:
 If Shell(App.Path & "\juegos\el juego\Mijuego.exe ", vbNormalFocus)  Then
  Else
error:
 MsgBox ("No se encontro el Archivo")

  End If
End Sub

al general el proyecto.exe todo bien

 

pero al ejecutar el proyecto.exe me abre la aplicación porque se puede ver en el administrador de tarea pero no  se ejecuta como debería simplemente carga el proceso en la memoria 

 

Answer 1

Debería hacer algo como esto

On Error GoTo error:
If dir(App.Path & "\juegos\el juego\Mijuego.exe ") <> ""  Then
   Shell  (App.Path & "\juegos\el juego\Mijuego.exe", vbNormalFocus)
Else
   goto error
end if

Exit Sub

 error:
 MsgBox ("No se encontro el Archivo")

End Sub

Si no te muestra nada prieba a ejecutar Mijuego.exe y comprueba si se muestra en pantalla.
también puedes cambiar  vbNormalFocus  por  vbMaximizedFocus.

Saludos,

Javie J