Trucos Cerrar la ventana cuando finaliza la ejecución de un programa MS-DOS

Cuando ejecutamos un programa DOS (o un fichero bat) desde nuestra aplicación VB en W95 tenemos el problema de que cuando finaliza no se cierra la ventana MS-DOS, se modifica el título de la misma añadiendo "Finalizado" y debemos cerrarla manualmente.
Han aparecido diversos trucos para cerrarla pero creo que el más sencillo es este: simplemente debemos ejecutar el command.com con la opción /C para que se descargue una vez haya finalizado la ejecución del programa que le pasemos como parámetro :

r = Shell("command.com /C C:\MiDir\MiPrograma.exe MiParametro1 MiParametro2")

Para asegurarnos de que el command.com esté en el path y no encontrarnos con ninguna sorpresa es mejor :

r = Shell(Environ("COMSPEC") & " /C C:\MiDir\MiPrograma.exe MiParametro1 MiParametro2")

Esto es compatible con otros trucos para que nuestra aplicación espere por la ejecución del programa antes de continuar que podeis encontrar en esta misma sección (por ejemplo Ejecutar un programa de forma síncrona (DOS, WIN, LNK) ).



Trucos Trucos

Visual Basic Página de Visual Basic

Página principal Página principal

www.jrubi.com