Probleme de code ftp

Bonsoir

Est-ce qu'il faut enregistrer ce code dans un même fichier?

Si oui pourquoi lorsque je clic dessus il se passe rien ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim FSO, File
Set FSO = CreateObject("Scripting.FileSystemObject")
Set File = FSO.OpenTextFile("c:\temp.txt", 2, True)
 
With File
 .WriteLine "open ftp.membres.lycos.fr"
 .WriteLine "USER Identifiant"
 .WriteLine "mot de passe"
 .WriteLine "PUT c:\fichier_a_envoyer.txt"
 .Close
End With
 
Shell "ftp -n -s:c:\temp.txt"

:salut:
Un coup d’œil sur ces deux discussions, pour avoir plus d'idées et construire votre script :king:

FTP les Bases
FTP sous VBS pour test débit avec affichage du résultat

Citation:

Envoyé par hackoofr

:salut:
Un coup d’œil sur ces deux discussions, pour avoir plus d'idées et construire votre script :king:

FTP les Bases
FTP sous VBS pour test débit avec affichage du résultat

Merci mais les codes sont trop long et du coup plus compliqué..

Je préfère rester sur ce petit code :oops:

Il y a un truc que je comprends pas.. a quoi sert ce fichier c:\temp.txt dans ces 2 lignes?
Code:

1 2 3 Set File = FSO.OpenTextFile("c:\temp.txt", 2, True) Shell "ftp -n -s:c:\temp.txt"

:salut:
Pour comprendre c'est quoi le fichier c:\temp.txt, il suffit de voir le Help de la commande FTP

Citation:

FTP [-v] [-d] [-i] [-n] [-g] [-s:filename] [-a] [-A] [-x:sendbuffer]
[-r:recvbuffer] [-b:asyncbuffers] [-w:windowsize] [host]

-v Supprime l’affichage des réponses du serveur distant.
-n Supprime la connexion automatique au démarrage.
-i Désactive l’invite s’il y a plusieurs fichiers à transférer.
-d Active le débogage.
-g Désactive le globbing du nom de fichier (cf. commande GLOB).
-s:NomFich Spécifie un fichier texte contenant les commandes FTP ; ces commandes seront automatiquement exécutées après le démarrage de FTP.
-a Utilise n’importe quelle interface locale pour la liaison de
la connexion des données.
-A Connexion en tant qu’anonyme.