Cita:
Iniciado por VisualGuallabo Te voy a dar una solución:
1-Crear un .bat(archivo de lotes de msdos) y ejecutarlos directamente.
Ejemplo:
Call EjecutarComandoDOS("c:\dos.Bat")
de esta forma ejecutara todas las lineas de comandos de msdos que pongas en el archivo de lotes.
1- No sirve con BAT... la idea es hacerlo directamente...
2- Hay aplicaciones que si vos ejecutas al .bat desde VB, no llega a leer el bat, no se cual es el problema, pero hay problemas...
Por ejempl, hise esto para probar
Código:
Public Sub EjecutarCMDDOS(Comando As String)
Open "Archivo.bat" For Output As #1
Print #1, Comando
Close #1
Dim ret As String
ret = Shell("rundll32.exe url.dll,FileProtocolHandler " & "Archivo.bat, vbNormalFocus)
'Call BorrarArchivo("Archivo.bat")
End Sub
No anda...
La idea es:
1- Crear un archivo bat con el comando que se quiere...
2- Ejecutar el archivo bat
3- Borrar el archivo bat...
No se por que, pero hay veces que si se llama a una aplicacion con parametros, no llega a ejecutarse la aplicacion con los parametros...
Si mando el comando:
PROGRAMA.EXE PARAMETRO1 PARAMETRO2 PARAMETRON
No anda..
Pero si creo un .BAT y lo ejecuto haciendo DOBLE CLICK... Ahi si anda...