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"
Partager