Page 1 sur 1
[R] Connection FTP + Déplacement de dossier sur FTP
Posté : lun. 31 janv. 2011 15:48
par 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.
Re: [..] Connection FTP + Déplacement de dossier sur FTP
Posté : lun. 31 janv. 2011 23:37
par 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 ...
Re: [..] Connection FTP + Déplacement de dossier sur FTP
Posté : mar. 01 févr. 2011 05:49
par Ekow
Merci je vais voir ce que je peut faire dans ce cas =)
Re: [..] Connection FTP + Déplacement de dossier sur FTP
Posté : mar. 01 févr. 2011 12:20
par 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
Re: [..] Connection FTP + Déplacement de dossier sur FTP
Posté : mar. 01 févr. 2011 12:41
par 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
Re: [..] Connection FTP + Déplacement de dossier sur FTP
Posté : mar. 01 févr. 2011 13:52
par 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.
Re: [..] Connection FTP + Déplacement de dossier sur FTP
Posté : jeu. 03 févr. 2011 20:27
par 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.
Re: [R] Connection FTP + Déplacement de dossier sur FTP
Posté : jeu. 03 févr. 2011 20:29
par bloodwolff
Sa fais plaisirs
bloodwolff
Re: [R] Connection FTP + Déplacement de dossier sur FTP
Posté : jeu. 03 févr. 2011 20:37
par TommyDDR
Ne jamais écorcher le pseudo de bloodwolff malheureux !
Heureusement que malgré ca,
ça fai
t plaisir
s
(Je sais, je suis méchant
)
Re: [R] Connection FTP + Déplacement de dossier sur FTP
Posté : jeu. 03 févr. 2011 20:42
par bloodwolff
J'avoue que j'y suis allé fort sur les fautes d'orthographes ! Mais Shutt !