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?

Gracias

[erbuson]

Hola, para que lo tengas claro, siguiendo tu ejemplo, en el supuesto del Boton1, deberías poner el siguiente código:

Shell("\Firefox 8\Setup.exe", 1)

Así de simple y para cada Boton el código correspondiente indicándole el Path y el nombre del programa a ejecutar.

Saludos

[cucurus123]

Iniciado por erbuson

Hola, para que lo tengas claro, siguiendo tu ejemplo, en el supuesto del Boton1, deberías poner el siguiente código:

Shell("\Firefox 8\Setup.exe", 1)

Así de simple y para cada Boton el código correspondiente indicándole el Path y el nombre del programa a ejecutar.

Saludos

Hola!

Segui tu ejemplo, y al depurar el programa me sale el error de FileNotFound..

Que pasa? Que estoy haciendo mal?

[cucurus123]

Una pregunta mas..
Para que es el Numero 1?

[A.H.H]

Hola prueba asi suponiendo que tengas el ejecutable de visual basic y la carpeta Firefox 8 en el mismo sitio.


Shell (App.Path & "\Firefox 8\Setup.exe"), vbMaximizedFocus



Despues en el CD tienes que crear un archivo autorun.inf con el que llamas a tu programa para que cuando la disquetera lea el CD SALTE TU PROGRAMA PRIMERO.
El archivo autorun.inf lo creas con el block de notas de windows por ejemplo y dentro pones las siguientes lineas.

[AutoRun]
Open=AQUI TU EJECUTABLE
Label=AQUI UNA ETIQUETA DEL NOMBRE DEL CD O PROGRAMA
icon=AQUI SI QUIERES USAR UN ICONO

El label y el icono se ven cuando tienes el cd insertado en xp en mipc en vista etc-- en equipo.

DESPUES GUARDAS EL ARCHIVO DE TEXTO, como autorun.inf quitandole la extension txt.

ejemplo

[AutoRun]
Open=Setup.exe
Label="GRUPO DE PROGRAMAS"
icon=imagen.ico


NOTA:El archivo autorun.inf debe de estar suelto en el directorio principal no meterlo en ninguna carpeta, en OPEN= si el exe de tu programa estuviera dentro de alguna carpeta pues pones la ruta hasta el. Mejor dejarlo como el autorun.inf fuera.
salu2

[cucurus123]

Como resuelvo el error que me sale cuando uso el App.Path?

Me sale...

App no esta declarado, puede que este Inaccesible por su nivel de Proteccion

[A.H.H]

Osea segun lo que dices es que tienes varias carpetas de programas cada una con su instalador dentro.
Si tu exe lo pones fuera de las carpetas te deberia de funcionar la linea
tal y como esta que la he probado en xp y funciona.

Shell (App.Path & "\Firefox 8\Setup.exe"), vbMaximizedFocus

Revisa que tienes bien escrito todo ya que como sabes las rutas son susceptibles a mayusculas y minusculas a veces el Setup.exe lo escriben en minuscula.
En cuanto al error que te da nunca lo habia visto.
Seria bueno que pusieras algunas lineas de codigo para que te las pudieramos corregir entre todos los usuarios del foro.

Esta seria otra forma de usar app.path:

Private Sub Command1_Click()
Dim ruta As String
ruta = "\firefox\setup.exe"
Shell (App.Path & ruta), vbMaximizedFocus
End Sub

Puedes cambiar los diferentes valores donde pone vbMaximizedFocus ya que ese valor te abre una pantalla completa.
salu2

[pkj]

Eso no va a funcionar.

Si el programa ejecutable esta en la raiz del cd-rom, el app.path contendra la letra del disco + dos puntos + la barra inversa. Ejm: App.Path="Z:\"
De modo que al unirlo a la ruta=\firefox\setup.exe
queda:
Z:\\firefox\setup.exe
Lo cual te debe mostrar el error File Not Found

Por otro lado, si el ejecutable esta en una carpeta dentro del CD, el app.path contendra el camino completo, ejm: Z:\Prog
que no incluye la barra inversa, y que al juntarlo con la ruta quedara:
Z:\Prog\firegox\setup.exe
mostrando el mismo error File not found.

El modo correcto seria:
Shell left$(App.Path,2) & ruta, vbMaximizedFocus
de ese modo tomamos solo los 2 primeros caracteres del app.path, que son la unidad del CD + dos puntos,
y añadimos la ruta.
Esto debe funcionar en los 2 casos.

Saludos

PD: Sobre el error de proteccion del App.Path no puedo ayudarte porque nunca he visto ese error.

[A.H.H]

Hola Pkj

Lo he probado en un pendrive y funciona con doble barra.
He metido en un pendrive una carpeta llamada firefox y dentro un setup.exe de un programa. y en el directorio raiz el ejecutable en visual basic 6 con el siguiente codigo.

Private Sub Command1_Click()
Dim ruta As String
ruta = "\firefox\setup.exe"
MsgBox App.Path & ruta
Shell (App.Path & ruta), vbMaximizedFocus
End Sub

y aunque tienes razon en la letra del disco con las dos barras , windows lo ejecuta igual y hace caso omiso de la doble barra despues de la letra de la unidad.
Aunque lo correcto seria una sola barra que tan solo con quitar la primera barra de la linea de la variable ruta se soluciona.

ruta = "firefox\setup.exe"

Funcionar funciona con una o con 2 barras despues de la letra de la unidad.


salu2

[pkj]

Me sonaba haber visto eso que dices de las 2 barras, pero creia recordar que lo que cargaba aquella vez eran imagenes en picbox.
Un pequeño fallo.
De todas formas de este modo se puede usar desde cualquier sitio que coloques el ejecutable, siempre que este dentro del CD.

Saludos

[cucurus123]

Gracias por Intentar ayudarme, aqui el codigo que estoy usando... estoy en Visual Studio 2010... Windows 7 x64... y todas mis "Pruebas" las hago dentro de carpetas en el escritorio...

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/

[erbuson]

Ya me parecia a mi muy sospechoso el tema del App.Path ya que tueve que hacer por necesidad unos pinitos en VB NET y el App no existe, creo recordar que había alguna alternativa pero no puedo asegurarte nada en concreto.

Mejor pásate por el foro de NET ya que este es VB 6 Clásico

Saludos

[JonathanB]

http://www.forosdelweb.com/f29/como-...-basic-973339/