Código:
Private Sub Form_Load()
Dim Directorio as String
ChDir App.Path
ChDrive App.Path
Directorio = App.Path
If Len(Directorio) > 3 Then
Directorio = Directorio & "\"
End If
End Sub
Este codigo sirve para definir la variable directorio como la ruta donde se ha ejecutado el project. Pero mi pregunta es como combino esto junto como el "shell" para ejecutar un programa usando el directorio donde se ejecuta el project.
Si sabeis hacerlo de otra forma no importa. Lo que quisiera seria meterlo en un dvd junto con programas para ejecutar.
Muchas gracias por la atención