[R] Comment transférer le contenu dossier du PC vers FTP

[ELGAMALI]

Salut
Je cherche scripte pour transférer le contenu d’un dossier (plusieurs fichiers.txt) du pc vers un serveur ftp
Merci de votre collaboration!

[Tlem]

Avez-vous essayé ce lien ?

[ELGAMALI]

Bonsoir
J'ai testé plusieurs scriptes sous Autoit pour transférer fichier vers serveur FTP, mais pas pour transférer le contenu d'un dossier qui contient plusieurs fichiers de ce fait je prie de m'aider merci.

[Tlem]

Vous ne pouvez pas transférer directement un dossier.

La première chose à faire et de mémorisé dans un tableau la liste des fichiers locaux (il existe des fonctions toute faites pour cela) et ensuite, vous devrez créer sur le FTP le/les dossiers puis copier les fichiers un à un dans leur répertoire spécifique.

[ELGAMALI]

Merci pour ta repense
Peut on transférer le contenu d'un dossier (fichiers) automatiquement vers FTP; je dis bien uniquement les fichiers du dossier et pas le dossier.
salutation

[PandiPanda]

Bonsoir,
_FTP_FilePut()

[ELGAMALI]

Bonsoir

Pour mon cas je ne peut nullement renommer les fichier du dossier à transférer, il faut les transférés en bloc soit 5.000 fichiers par jour.....
voir code:

Code : Tout sélectionner

;_FTP_FilePut($l_FTPSession, $s_LocalFile, $s_RemoteFile [, $l_Flags = 0 [, $l_Context = 0]])

#include <FTPEx.au3>
 $server = 'xxxxx'
 $username = 'xxxx'
 $pass = 'xxxx'
 $vrPort = "xx"
;$1='test2'
Global $nom_fichier = ".ini"
Global $FilePath = @DesktopDir&"\drvpi\"
If Not FileExists($FilePath) Then DirCreate($FilePath)
If Not FileExists($FilePath) Then DirCreate($FilePath)

;$lfile = @DesktopDir&"\drvpi\.ini"
$Open = _FTP_Open('test')
$Conn = _FTP_Connect($Open, $server, $username, $pass)
  ;_FTP_FilePut($Conn, "c:\drvpi\" & $nom_fichier, "/InfoClients/" & "le " & @MDAY & " " & "alerte" & " est ici.txt")
_FTP_FilePut($Conn, @DesktopDir&"\drvpi\" & $nom_fichier, "/InfoClients/" & '' &'' & '' & '' & '.ini')
 if @error Then
    ConsoleWrite(@error)
    EndIf
_FTP_Close($Conn)

[PandiPanda]

un peu de pub pour ma fonction toute fraiche ...
Voici cette fonction qui devrai faire ce que vous voulez ^^

_FTP_DirCopy()

[ELGAMALI]

Bonsoir
J'ai testé votre exemple mais il me signale une erreur sur la ligne suivante:

Code : Tout sélectionner

_FTP_DirCopy($Conn , $pathDirToCopy,$s_Remote,"*",$recurs)

[PandiPanda]

et quel erreur est ce ? ^^

[ELGAMALI]

Bonsoir
voir le résultat de la compilation de votre exemple:(_FTP_DirCopy)

Code : Tout sélectionner

#include-once
#Include <FTPEx.au3>
#include "RecFileListToArray.au3"

 $server = 'ftp.aaaaa.com'
 $username = 'zz@zzzzz'
 $pass = 'xxxxxxx'
 $vrPort = "21"

$pathDirToCopy= @DesktopDir&'\drvpi\' ;'VotreDossierInitial'
$s_Remote=   'InfoClients'          ;'dossierDansLeFtp'
$sInclude_List = "*"
$recurs=True

$Open = _FTP_Open('Mon Panda FTP')
$Conn = _FTP_Connect($Open, $server, $username, $pass)

_FTP_DirCopy($Conn , $pathDirToCopy,$s_Remote,"*",$recurs)

MsgBox(64,"error","ERROR = "&@error&@CRLF&"EXTENDED = "&@extended)

$Ftpc = _FTP_Close($Open)

[color=#0000FF]Erreur 1-- >[/color] C:\Documents and Settings\DATA\Bureau\19-11-2011\ftp+.au3 (3) : ==> Error opening the file.: 
[color=#FF0000]#include "RecFileListToArray.au3" [/color] soit ===> #include [color=#FF4000]"RecFileListToArray.au3"

[color=#0040FF]Erreur 2]-- >[/color] C:\Documents and Settings\DATA\Bureau\19-11-2011\ftp+.au3 (20) : ==> Incorrect number of parameters in function call.:
[color=#FF4000]_FTP_DirCopy($Conn , $pathDirToCopy,$s_Remote,"*",$recurs)
^ ERROR[/color]

[PandiPanda]

vous n'avez pas le fichier "RecFileListToArray.au3" que vous aurez pu retrouver via le lien donné sur mon topic [FUNC] _FTP_DirCopy()

je vous donne tout ce qui est nécessaire dans cette archive .rar, la fonction est moche et ne gere pas les erreurs, mais est fonctionnelle. (bhe j'ai test tout de meme :O)

Vous ne devez que modifier "exemple.au3" par vos propre donnée, et l'avoir dans le meme dossier que les 2 autres fichier .au3 !

[ELGAMALI]

Bonjour
Nous vous mercions pour l'aide que vous portez aux amis de la communauté Francophone Autoit.
Nous vous prions et si c'est possible de rependre l' exemple ainsi que vos scriptes pour les simplifier et les rendre à laporté des utilisateurs de Autoit merci.

[PandiPanda]

je ne comprend pas trop en quoi c'est pas explicite ? ^^

► Afficher le texte

Code : Tout sélectionner

#include-once
#include "_FTP_DirCopy.au3"
#include <Array.au3>

$server = 'xxx-xxxx.xxx' ; mon serveur ftp
$username = 'xxxxxx' ; mon username 
$pass = 'xxxxxxxxx' ; mon mot de passe

$pathDirToCopy=@scriptdir&"\Test" ; le dossier initial (voir screen n°0)
$s_Remote="/" ; cela signifie que dans mon ftp j'ai pas de dossier specifique, je vais tout copier à partie de la racine!
$sInclude_List="*" ; cela signifie que j'accepte tout les fichier, aucun restriction !
$recurs=True ; cela signifie si je regarde TOUT les dossier se trouvant dans mon dossier initial ou non
$Open = _FTP_Open('Mon Panda FTP')
$Conn = _FTP_Connect($Open, $server, $username, $pass)

$error=_FTP_DirCopy($Conn , $pathDirToCopy,$s_Remote,"*",$recurs)
MsgBox(64,"error","ERROR = "&@error&@CRLF&"EXTENDED = "&@extended)

if IsArray($error) Then _ArrayDisplay($error) ; si il y'a eu une erreur, tableau des fichier/dossier mal copié

$Ftpc = _FTP_Close($Open)
 

Je vous met ci dessous, des screen de ce que cela devrai vous donné !

Je vous dit préalablement, dans mon dossier Inital, à savoir @scriptdir&"\Test" j'ai une arborescence tel que celle ci;

Test :> un fichier TEST.txt
:> un dossier TEST DIR 2
Dans le dossier TEST DIR 2, j'ai ceci;
:> un fichier TEST2.txt
:> un fichier TEST3.txt
:> un dossier TEST DIR 2
Dans le dossier TEST DIR 3, j'ai rien ^^

Voici les screen d'exemple de création :O !

Le screen n°0; mon dossier initial


Le screen n°1; mon ftp est vide


Le screen n°2; copie des differents fichier/dossier
[je me suis arrete au screen de TEST DIR 2, libre à vous de me croire que tout les fichier sont fait :p]

[ELGAMALI]

Bonsoir
Votre dernier exemple est bienfait si non inédit bravo bravo bravooooooooooo
Merci pour tous.

[PandiPanda]

De rien ^^
Si votre sujet est résolu, pouvez vous le passer en Résolu, à savoir un petit edit de votre premier message, et mettre la balise [R] devant le titre,

Merci!