Como ejecutar programas de un CD con una aplicacion echa con Visual Basic?

[cucurus123]

Hola!

Bueno, esta es mi pregunta de hoy, lo que estoy haciendo es un programa en Visual Basic con botones que se supone tiene que abrir otros programas que pienso incluir en el cd...

Bueno, Planeo grabar TODO en un CD pero el problema que tengo es que no se que codigo usar para que el "programa inicial" ejecute los programas que estan en el CD.

Este es un Ejemplo. espero que me puedan entender...

El "programa Inicial" es donde estan los botones que son para abrir los programas...

Boton 1= Firefox

en el CD los programas estan organizados por Carpetas...

\Firefox 8\Setup.exe

Supongamos que tengo un boton que va a ejecutar el Instalador de Firefox...
en el CD esta ubicado en la carpeta llamada Firefox 8 [\Firefox 8\Setup.exe]

Y asi con todos los programas que tiene el CD...

Que codigo tengo que usar en VB para que al presionar los botones del Programa Inicial Ejecute los Programas que estan en el CD?

Si me van a dar la recomendacion de usar App.Path

Me pueden Explicar como usarlo?


Cuando uso el App.Path Me sale el error de File NOT Found, el xxx.exe esta en una carpeta en el escritorio... (La de Prueba)

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim ruta As String
ruta = "\firefox\setup.exe"
Shell(App.Path & ruta + vbMaximizedFocus)

Pero cuando uso TODA la Ruta hasta el Archivo (Prefiero las variables de entorno), el codigo me sale correcto... Y sin Usar el App.Path, si lo uso es cuando me sale el error de "App no esta Declarado"

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim ruta As String
ruta = Environ("HOMEPATH") & "\Desktop\archivos cd\firefox\setup.exe"
Shell(ruta)

Este es el UNICO Codigo que me funciona, pero no me sirve si lo que quiero es que mi aplicacion reconosca los archivos del CD...

Y les dejo un link para que vean el screenshot the el App error...

http://imageshack.us/photo/my-images/849/errorapp.png/

[JonathanB]

Saludos, prueba usar la siguiente función para obtener el path:

Código vb:

Private Function getAppPath() As String
    Dim path As String
 
    ' Obtiene el path de la aplicación
    path = My.Application.Info.DirectoryPath()
 
    ' Añade el backslash en caso el ejecutable se encuentre en la raiz de una unidad
    If Not path.Substring(path.Length - 1) = "\" Then
        path += "\"
    End If
 
    ' Devuelve la variable con la ruta completa
    Return path
End Function
 

Espero que te sea de utilidad

[cucurus123]

Iniciado por JonathanB

Saludos, prueba usar la siguiente función para obtener el path:

Código vb:

Private Function getAppPath() As String
    Dim path As String
 
    ' Obtiene el path de la aplicación
    path = My.Application.Info.DirectoryPath()
 
    ' Añade el backslash en caso el ejecutable se encuentre en la raiz de una unidad
    If Not path.Substring(path.Length - 1) = "\" Then
        path += "\"
    End If
 
    ' Devuelve la variable con la ruta completa
    Return path
End Function
 

Espero que te sea de utilidad

y me puedes ayudar a poner un ejemplo?
con lo del firefox y todo eso?

[JonathanB]

Código vb:

Private Function getAppPath() As String
   Dim path As String
   
   ' Obtiene el path de la aplicación
   path = My.Application.Info.DirectoryPath()
   
   ' Añade el backslash en caso el ejecutable se encuentre en la raiz de una unidad
   If Not path.Substring(path.Length - 1) = "\" Then
      path += "\"
   End If
   
   ' Devuelve la variable con la ruta completa
   Return path
End Function
 
 
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
   Dim ruta As String
   ruta = "firefox\setup.exe"
   Shell(getAppPath() + ruta, Microsoft.VisualBasic.AppWinStyle.MaximizedFocus)
End Sub
 

[cucurus123]

Iniciado por JonathanB

Código vb:

Private Function getAppPath() As String
   Dim path As String
   
   ' Obtiene el path de la aplicación
   path = My.Application.Info.DirectoryPath()
   
   ' Añade el backslash en caso el ejecutable se encuentre en la raiz de una unidad
   If Not path.Substring(path.Length - 1) = "\" Then
      path += "\"
   End If
   
   ' Devuelve la variable con la ruta completa
   Return path
End Function
 
 
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
   Dim ruta As String
   ruta = "firefox\setup.exe"
   Shell(getAppPath() + ruta, Microsoft.VisualBasic.AppWinStyle.MaximizedFocus)
End Sub
 

Hola, Probe tu codigo, y me salio un error al depurar el proyecto...

La linea de Shell esta remarcada, y me sale el siguiente mensaje:

NO SE CONTROLO File NOT Found Exception...

Que hago?

Gracias por tu ayuda

[JonathanB]

Tienes toda la razón... eso es una excepción que no fue controlada. Puede ocurrir cuando no se encuentra la ruta del archivo en la ruta especificada.

Prueba de la siguiente manera:

Código vb:

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
   Dim ruta As String
   ruta = getAppPath() + "firefox\setup.exe"
   Try
      Shell(ruta, Microsoft.VisualBasic.AppWinStyle.MaximizedFocus)
   Catch ex As Exception
      MessageBox.Show("No se encontro el archivo")
   End Try
End Sub
 

[Codymarc]

Hola, yo cuando tengo que ejecutar otros programas en vb.net uso Process.Start

Ej:

Process.Start("C:\Archivo.doc")

Nunca lo probe con un Cd pero nada dice que no deberia funcionar. Espero te sirva. Saludos

[JonathanB]

Es cierto, me habia olvidado de process.start , muchas gracias por la info Codymarc