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

[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