none
Duda Sobre App.path RRS feed

  • Pregunta

  • 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 

     

    lunes, 19 de septiembre de 2011 0:18

Todas las respuestas

  • 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
    • Propuesto como respuesta guarracuco martes, 11 de octubre de 2011 0:09
    lunes, 10 de octubre de 2011 9:33