Discussion :

[kevain_09]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !!

[Jihnn]

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

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"

[kevain_09]

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

[kevain_09]

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

il faut remplacer la derniere ligne par ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[xle72]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[AlainTech]

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

[kevain_09]

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