[VBS] Upload FTP

slt !
Jaimerais pouvoir envoyer automatiquement des fichiers sur mon FTP en utilisant l'application ftp.exe de windows.
En cherchant un peut sur le net voila ce que j'ai trouvé...

Code:

---

1 2 3 4 5 6 7 8 9 10 11

ChDir "C:\" Open "temp.txt" For Append As #1 Print #1, "open ftp.membres.lycos.fr" Print #1, "USER Identifiant" Print #1, "motdepasse" Print #1, "put c:\fichier_a_envoyer.txt"   Close #1     site = Shell("ftp -n -s:c:\temp.txt", vbHide)

---

Malheuresement ce code ne fonctionne pas chez moi et comme je sui débuta,t en vbs :? jorais besoin d'aide !
En effet, il m'indique une erreur a la ligne 2 "Open "temp.txt" For..."
La cause : "Fin d'instruction attendue"

Aidez moi svp !! 8O

La méthode Open n'existe pas en VBScript. Il faut utiliser le FileSystemObject. Voici un exemple :

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"

---

ça a l'air de marcher un peut mieu, mais fodrait modifié egalement la derniere ligne car j'ai une erreur : Type imcompatible :'Shel'

c'est bon ! petit problème réglé !

il faut remplacer la derniere ligne par ça :

Code:

---

1 2 3

Dim shell Set shell = CreateObject("WScript.Shell") shell.Run "ftp -n -s:c:\temp.txt"

---

par contre la fenetre MS-DOS est visible , je sas pas command la cacher...

Bonjour,

Il suffit d'ajouter ",0" à la fin de ta derniére ligne :

Code:

---

1 2 3

Dim shell Set shell = CreateObject("WScript.Shell") shell.Run "ftp -n -s:c:\temp.txt", 0

---

J'espère, pour kevain_09, que depuis 3 mois, il a trouvé :mouarf:

mdrr ! oui oui javai trouvé !!
merci quand même d'avoir répondu ;)