Envoi de fichier sur serveur FTP distant

**red_dog** · 11/04/2011, 13h07

Bonjour,

Je suis plutot debutant en VB script.
Je souhaite effectuer une copie d'un fichier, du serveur ou setrouve ce script, vers un autre. Vers un remote server, vers un repertoire FTP.
J'ai trouvé le script suivant qui correspond, mais j'ai quelques questions :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
If UploadByFTP("C:\MonFichierLocal.txt" , "www/rep" , "FichierFTP.txt") Then
	Msgbox "Upload OK"
Else
	Msgbox "problème lors du transfert"
End If
 
Function UploadByFTP(ByVal FichierLocal, ByVal Repertoire, ByVal FichierFTP)
    Const ForReading = 1, ForWriting = 2, ForAppending = 8
    Dim fso, f_cmd, f_ret
	
    FichierCommandeFTP = "Cmdftp.ftp"
    FichierRetourFTP = "return.txt"
   
    FTP = "ftp.site.com"
    Login = "user"
    Pass = "pass"
	
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f_cmd = fso.OpenTextFile(FichierCommandeFTP, ForWriting, True)	
    f_cmd.Write "OPEN " & FTP & vbCrLf
    f_cmd.Write "USER " & Login & vbCrLf & Pass & vbCrLf
    f_cmd.Write "cd " & Repertoire & vbCrLf
    f_cmd.Write "put " & FichierLocal & " " & FichierFTP & vbCrLf
    f_cmd.Write "quit"
    f_cmd.Close
 
	Set WSHShell = CreateObject("WScript.Shell")	
    WSHShell.Run "cmd /c ftp.exe -s:" & FichierCommandeFTP & " > " & FichierRetourFTP, 0 , True
   
    UploadByFTP = False
    Set f_ret = fso.OpenTextFile(FichierRetourFTP, ForReading)
	while Not f_ret.AtEndOfStream And UploadByFTP = False
		iF Trim(f_ret.ReadLine) = "226 File receive OK." Then
			UploadByFTP = True
		End If
    Wend
    f_ret.close
    fso.DeleteFile FichierCommandeFTP
    fso.DeleteFile FichierRetourFTP
    Set WSHShell = Nothing
    Set fso      = Nothing
    Set f_cmd    = Nothing
    Set f_ret    = Nothing
End Function

a quoi correspond :

Code :

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

1
2
FichierCommandeFTP = "Cmdftp.ftp"
    FichierRetourFTP = "return.txt"

et la commande :

Code :

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

WSHShell.Run "cmd /c ftp.exe -s:" & FichierCommandeFTP & " > " & FichierRetourFTP, 0 , True

Merci,

**omen999** · 11/04/2011, 19h19

bonjour,
si je lance ftp -? dans une fenêtre de commande, j'ai la réponse...

FichierCommandeFTP désigne le fichier qui contient des commandes ftp qui seront exécutées après démarrage (dans ton cas Cmdftp.ftp)
et les réponses de ftp seront loggées dans return.txt

**red_dog** · 12/04/2011, 15h19

Bonjour,

Ah merci, mais quand je lance je n'arrive pas a faire une copie d'un fichier vers un serveur distant.
Le script tourne sans erreur, mais dans le repertoire cible il n'y aucun fichier créé.
J'ai peut etre fait une mauvaise manip,?.
T'a réussi a faire une copie de fichier sur un serveur distant?

**omen999** · 12/04/2011, 16h40

mais dans le repertoire cible il n'y aucun fichier créé.
J'ai peut etre fait une mauvaise manip,?.

difficile de savoir puisqu'on ignore le contenu de Cmdftp.ftp

**red_dog** · 12/04/2011, 17h19

Bonjour,

Mon fichier de retour est :

ftp> ftp> OPEN 220.xx.xx.xx
Invalid command.

ftp> userid
Invalid command.

ftp> password
Not connected.

ftp> cd D:\TEST\
Not connected.

ftp> put C:\depart\23.txt
quit

------------------------------

Ma connection au serveur ne marche pas.

**SfJ5Rpw8** · 12/04/2011, 22h25

bonsoir,

ton fichier de retour ne correspond pas au source que tu nous montre dans ton premier message tu devrais revoir ton adaptation ..

**ced600** · 13/04/2011, 13h45

J'ai essayé la commande dans un cmd et elle ne marche pas.
Voir ici ce tuto sur ftp.exe: http://cs.ecs.baylor.edu/~donahoo/cl...s/ftp/ftp.html

Moi je ferais plus un truc dans le genre :

Code :

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

WSHShell.Run "cmd /c ftp.exe 200.xx.xx.xx -s: " & FichierCommandeFTP & " > " & FichierRetourFTP, 0 , True

**SfJ5Rpw8** · 13/04/2011, 20h27

bonsoir,

je ne comprends toujours pas pourquoi tu as 2 fois ftp dans ta premiére ligne de ton fichier retour :

ftp> ftp> OPEN 220.xx.xx.xx

et donc je doute encore que tu nous montre le bon code ..

de même pourquoi avoir enlever la commande "USER" ..?

pourrai t'on voir le contenu du fichier "Cmdftp.ftp" généré ?

**ced600** · 14/04/2011, 11h09

Envoyé par bbil

bonsoir,

je ne comprends toujours pas pourquoi tu as 2 fois ftp dans ta premiére ligne de ton fichier retour :

et donc je doute encore que tu nous montre le bon code ..

de même pourquoi avoir enlever la commande "USER" ..?

pourrai t'on voir le contenu du fichier "Cmdftp.ftp" généré ?

Perso j'ai essayé la commande ftp.exe avec un fichier de commande du genre :

Code :

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

1
2
3
4
5
OPEN ip
user
pass
CD path
PUT path

Et ftp exe met tout seul dans le fichier de resultat ftp > ftp >

Peut être un bug de l'outil ?

En tout cas je suis d'accord avec toi il serait bien de voir le contenu des fichiers originaux FichierCommandeFTP et FichierRetourFTP

**red_dog** · 14/04/2011, 16h40

Bonjour,

le contenu de mon fichier "Cmdftp.ftp" généré

------------------------
OPEN 220.xx.xx.xx
user
password
cd D:\MSJ_TEST\
put C:\xxxxx\xxxxx\xxxxx\depart\27.txt
quit
-------------------------------------

Le code que j'avais posté la dernière est le code entier,... ah oui j'ai retirer l'envoi automatique de mail.... c'est tout...

Je comprend pas aussi pourquoi j'ai

ftp> ftp> OPEN 220.xx.xx.xx

2 fois ftp....

Merci a tous,