Étape 4: L’exécution et le nettoyage
Maintenant que nous avons écrit toutes nos ftp instructions et enregistré nos fichiers de ligne de commande, nous allons appeler ce fichier .bat et exécutez-le avec le code ci-dessous.
Ici, vous pouvez remplacer les constantes vbNormalFocus avec vbHide si vous souhaitez masquer la fenêtre de téléchargement, mais il est conseillé de le garder en vue pour connaître l’état du transfert
Shell (MyDirectory & ".bat"), vbNormalFocus
Maintenant, nous allons dire VB d’attendre nos téléchargements terminer. Nous faisons cela en disant VB pour rechercher un fichier .out dans le répertoire, qui sera créé seulement une fois que le fichier .bat se termine.
Do While Dir(MyDirectory & ".out") = "" DoEventsLoop
Ensuite, nous allons ajouter un retard vb pour nous donner suffisamment de temps pour voir le message terminé dans l’interface de commande.
Application.Wait (Now + TimeValue("0:00:03")) Une fois que tous les fichiers ont été téléchargés, et VB peut continuer, nous allons supprimer tous les fichiers créés pour l’upload.
If Dir(MyDirectory & ".bat") <> "" Then Kill (MyDirectory & ".bat") If Dir(MyDirectory & ".out") <> "" Then Kill (MyDirectory & ".out")If Dir(MyDirectory & ".txt") <> "" Then Kill (MyDirectory & ".txt")
Et ça y est que nous sommes tous fait. Vous pouvez continuer votre processus VB. Bien sûr au cours de ce code, que vous pouvez appliquer plusieurs trucs VB pour générer vos commandes alors n’hésitez à faire preuve de créativité. Si vous voulez voir l’ensemble du code, consultez l’étape suivante.
