Comment exécuter des commandes de ftp avec VBA

Créez le fichier de commandes FTP avec une liste de commandes que le client FTP exécutera. Le fragment de code VBA suivant crée un tel fichier:

Dim ftpFileHandle As Integer

ftpFileHandle = FreeFile

Ouvrir "ftpCommand.txt" pour la sortie Comme #ftpFileHandle

Imprimer #ftpFileHandle, "ftpserver.com ouverte"

Imprimer #ftpFileHandle, "userid"

Imprimer #ftpFileHandle, "password"

Imprimer #ftpFileHandle, "envoyer localfile.xls"

Imprimer #ftpFileHandle, "recv remotefile.doc"

Imprimer #ftpFileHandle, "au revoir"

Fermer #ftpFileHandle

Remplacer "ftpserver.com" avec le nom du serveur FTP, "ID utilisateur" avec le nom de votre compte dans ce serveur et "mot de passe" avec votre mot de passe. L'exemple de code télécharge une feuille de calcul contenues dans un fichier nommé "localfile.xls" et télécharge un document contenu dans un fichier nommé "remotefile.doc." Vous pouvez utiliser l'une des commandes à partir de la «Liste des commandes FTP" sur le site web Outils NSF avant de fermer la session avec "bye."

Créer un lot, ou un script exécutable, un fichier qui appelle le client FTP pour avoir exécuter le fichier de commandes FTP. Le fragment de code VBA suivant crée un tel fichier:

Dim batFileHandle As Integer

batFileHandle = FreeFile

Ouvrir "doFtp.bat" pour la sortie Comme #batFileHandle

Imprimer #batFileHandle, "-s ftp: ftpCommand.txt"

Fermer #batFileHandle

Exécutez le fichier de commandes en incluant la ligne suivante dans votre code VBA:

Shell ("doFtp.bat»), vbHide '', vbMinimizedNoFocus

Notez que la ligne contient deux guillemets simples, sans aucun caractère entre elles, immédiatement avant la deuxième virgule. Votre programme VBA invoquer le fichier de commandes qui, à son tour, va appeler le client FTP et le faire exécuter la séquence de commandes de l'étape 1.