[R] Connection FTP + Déplacement de dossier sur FTP

[Ekow]

Bonjour à tous !
J'ai commencé un bout de script qui a pour but de me connecter à mon FTP et de récupérer un dossier afin de le remplacer la où il éxiste déjà.
Pour le moment ce qui est opérationnel c'est la connection.
Mais le déplacement du dossier je ne sait pas comment procédé , j'ai regarder l'UDF mais il y a rien qui pourrait déplacer un dossier entier.
Voici mon code :

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <FTPEx.au3>
#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("Mise à jour", 425, 183, 192, 124)
Global $MenuItem1 = GUICtrlCreateMenu("Start")
Global $Label1 = GUICtrlCreateLabel("", 0, 8, 420, 121)
$server = 'blabla.vacau.com'
$username = 'blabla'
$pass = '**************'

$Open = _FTP_Open('MyFTP Control')
$Conn = _FTP_Connect($Open, $server, $username, $pass)


GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1



WEnd
 

Il faudrait faire en sorte que lorsqu'on clique sur start la procédure de récupération du dossier commence.
Mon objectif est de crée un mini updateur.

[Tlem]

Je n'en suis pas absolument sur, mais je crois que _FTP_FileRename vous serait fort utile.
Même si la fonction de base est de renommer un fichier, rien ne vous empêche de modifier son chemin ...

[Ekow]

Merci je vais voir ce que je peut faire dans ce cas =)

[Ekow]

Donc voila j'ai regarder la commande que tu m'a conseiller mais cela ne correspond pas du tout à ce que je recherche.
J'ai ensuite continuer à chercher et je suis tomber sur la commande : _FTP_FileGet
Mais mon code n'a pas l'air de fonctionner...
Voici le code :

Code : Tout sélectionner

; Début du script - Ajouter votre code ci-dessous.
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <FTPEx.au3>
#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("Mise à jour", 425, 183, 192, 124)
Global $MenuItem1 = GUICtrlCreateMenu("Start")
Global $Label1 = GUICtrlCreateLabel("", 0, 8, 420, 121)
$src = "ftp://a5860834@paranormals.vacau.com/public_html/ShellBoot/ShellBoot.au3"
$dest = "C:\Documents and Settings\Ludovic\Bureau"
$server = 'blabla'
$username = 'blabla'
$pass = '************'

$Open = _FTP_Open('MyFTP Control')
$Conn = _FTP_Connect($Open, $server, $username, $pass)


GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

_FTP_FileGet($Conn, $src, $dest)
ConsoleWrite("Transfert réussi")

While 1




WEnd

 

Si sa serait possible de m'aider à corriger mes erreurs et de m'expliquer comment vous procédé ?
Et même d'améliorer mon script serait l'idéal =)
Merci d'avance

[Ahbadiane]

Bonjour,
Tu dois lister tous les fichiers de ton dossier et les copier un à un.
J'ai posté un exemple qui te montre, en autres, comment lister les fichiers d'un dossier et copier un fichier : Utilitaire de tests FTP

[Ekow]

J'ai regarder ton code mais je le trouve encore un peu trop complexe pour mon niveau.
Cependant j'ai trouver la commande pour rechercher un fichier : _FTP_FindFileFirst
Mais je n'arrive pas à faire en sorte qu'il recherche les fichiers sur mon FTP
Serait-il possible que tu adapte ton code au mien et m'expliquer comment tu a procédé s'il te plait ?
Sans trop le modifié mais faire en sorte qu'il recherche les fichiers et qu'il les copies à un endroit.

[Ekow]

Bonsoir à tous !
Après quelques jours et l'aide précieuse de Bloodwolft !
Voici le script qui permet de vous connecter à un serveur FTP et de récupéré un dossier entier + sous dossier et fichier :

Code : Tout sélectionner

#include <FTPEx.au3>

$src = " "
$dest = " "
$server = ' '
$username = ' '
$pass = ' '

$Open = _FTP_Open('MyFTP Control')
$Conn = _FTP_Connect($Open, $server, $username, $pass)
_Ftp_DirGet($Conn, $src, $dest)
$Ftpc = _FTP_Close($Open)

Func _Ftp_DirGet($Conn, $src, $dest)
    Local $list_file
    Dim $loop[2] = ["Dir", "File"]
    _FTP_DirSetCurrent($Conn, $src)
    DirCreate($dest)
    For $ii=2 to 1 Step -1
        $list_file = _FTP_ListToArray($Conn, $ii)
        If IsArray($list_file) and $list_file[0] <> 0 Then
            For $i=1 to $list_file[0]
                If StringLeft($list_file[$i],1) <> "." then Call("_FTP_" & $loop[$ii-1] & "Get" ,$Conn, $src & "/" & $list_file[$i] , $dest & "\" & BinaryToString(StringToBinary($list_file[$i]),4))
            Next
        EndIf
    Next
EndFunc
 

La fonction n'est pas de moi mais de bloodwolft ! UN GRAND MERCI A LUI POUR AVOIR DONNER DE SON TEMPS !
Sujet Résolu Merci encore bloodwolft.

[bloodwolff]

Sa fais plaisirs

bloodwolff

[TommyDDR]

Ne jamais écorcher le pseudo de bloodwolff malheureux !
Heureusement que malgré ca, ça fait plaisirs

(Je sais, je suis méchant )

[bloodwolff]

J'avoue que j'y suis allé fort sur les fautes d'orthographes ! Mais Shutt !