UTILISATION DE FTP.EXE DE WINDOWS EN ASP

<%
LeServer = "adresse du serveur ftp"
Login = "votre login"
Password = "votre mot de passe"

'Pour commencer nous allons créer un fichier qui va contenir les commandes émises par ftp.exe
Set FSO = CreateObject("Scripting.FileSystemObject")
Set EcrireFichier = FSO.CreateTextFile("c:\fichier.txt", True)

'Dans ce fichier nous allons ecrire toutes les commandes qui seront envoyées

'open & server ==> ouvre une connexion vers le serveur ftp
EcrireFichier.WriteLine ("open " & LeServer)

'login ==> envoi le login au serveur ftp
EcrireFichier.WriteLine (Login)

'password ==> envoi le mot de passe au serveur ftp
EcrireFichier.WriteLine (Password)

'binary ==> indique au serveur que les fichiers seront envoyer en mode binaire
EcrireFichier.WriteLine ("binary")

'put adressefichier ==> envoi le fichier sur le serveur ftp
'adressefichier étant l'adresse du fichier en local
EcrireFichier.WriteLine ("put " & "d:\essai.txt")

'bye ==> déconnexion
EcrireFichier.WriteLine ("bye")

'on n'oublie pas de refermer le fichier
EcrireFichier.Close

'Voila maintenant toutes nos instructions sont écrites dans le fichier
'Nous allons maintenant piloter l'application ftp.exe

'D'abord nous créons un objet shell
Set objShell = CreateObject( "WScript.Shell" )

'Puis nous envoyons la commande a l'application
objShell.Run ("ftp -s:" & chr(34) & "c:\fichier.txt" & chr(34))
Set objShell = Nothing

%>