Paso 4: Ejecución y limpieza
Ahora que hemos escrito de nuestro ftp s de instruccióny guardar nuestros archivos de línea de comandos, invocar este archivo .bat y ejecutarlo con el debajo de código.
Aquí puede sustituir vbNormalFocus vbHide si desea ocultar la ventana de carga, pero se recomienda mantenerlo a la vista para ver el estado de la transferencia
Shell (MyDirectory & ".bat"), vbNormalFocus
Ahora diremos VB a esperar nuestros uploads completar. Para ello, dice VB para buscar un archivo ni en el directorio, que sólo se creará una vez que el archivo .bat se completa.
Do While Dir(MyDirectory & ".out") = "" DoEventsLoop
Luego vamos a añadir un retraso para VB que nos dé tiempo suficiente para ver el mensaje completo en la interfaz de comandos.
Application.Wait (Now + TimeValue("0:00:03")) Una vez que se han subido todos los archivos, y puede seguir VB, se eliminarán todos los archivos para la carga.
If Dir(MyDirectory & ".bat") <> "" Then Kill (MyDirectory & ".bat") If Dir(MyDirectory & ".out") <> "" Then Kill (MyDirectory & ".out")If Dir(MyDirectory & ".txt") <> "" Then Kill (MyDirectory & ".txt")
Y eso es lo que estamos hecho. Usted puede continuar su proceso VB. Por supuesto en este código que se puede aplicar muchos trucos VB para generar los comandos tan no dudes en ser creativo. Si quieres ver el código entero, revisa el siguiente paso.
