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 : Sélectionner tout - Visualiser dans une fenêtre à part
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"