[R] Renseignement sur l’existence d’un fichier sur FTP.

[Boulanza]

Bonjour,

Je voulais savoir si avec un script autoit on peut s’avoir si un tel fichier existe dans un dossier distant FTP et aussi sa dat et sa taille.
Merci d'avances pour votre aide.
Cordialement.

[Oversid3]

Bonjour

Pense a rechercher sur google dans un premier temps

Une simple recherche : Get size file ftp autoit

> https://www.autoitscript.com/autoit3/do ... etSize.htm

Elle existe donc apparemment en natif, tu trouvera dans le fichier d'aide toutes les infos.

[Boulanza]

Merci, le code ne marche pas sur autoit-v3-3-14-2 !!!??.

► Afficher le texte

#include <FTPEx.au3>

Local $sServer = 'ftp.csx.cam.ac.uk'
Local $sUsername = ''
Local $sPass = ''

Local $hOpen = _FTP_Open('MyFTP Control')
Local $hConn = _FTP_Connect($hOpen, $sServer, $sUsername, $sPass)

Local $h_Handle
Local $aFile = _FTP_FindFileFirst($hConn, "/pub/software/programming/pcre/", $h_Handle)
ConsoleWrite('$sFileName = ' & $aFile[10] & ' attribute = ' & $aFile[1] & ' -> Error code: ' & @error & ' extended: ' & @extended & @CRLF)

Local $sDirset = _FTP_DirSetCurrent($hConn, "/pub/software/programming/pcre/")
ConsoleWrite('$sDirset = ' & $sDirset & ' -> Error code: ' & @error & ' extended: ' & @extended & @CRLF)

Local $iFileSize = _FTP_FileGetSize($hConn, $aFile[10])
ConsoleWrite('$sFileName = ' & $aFile[10] & ' size = ' & $iFileSize & ' -> Error code: ' & @error & ' extended: ' & @extended & @CRLF)

Local $iErr, $sMessage
$iFileSize = _FTP_GetLastResponseInfo($iErr, $sMessage) ; error = Contrib: Not a regular file
ConsoleWrite('$sMessage = ' & $sMessage & ' err = ' & $iErr & ' -> Error code: ' & @error & ' extended: ' & @extended & @CRLF)

$aFile = _FTP_FindFileNext($h_Handle)
ConsoleWrite('$sFilenameNext1 = ' & $aFile[10] & ' attribute = ' & $aFile[1] & ' -> Error code: ' & @error & ' extended: ' & @extended & @CRLF)

$iFileSize = _FTP_FileGetSize($hConn, $aFile[10])
ConsoleWrite('$sFilenameNext1 = ' & $aFile[10] & ' size = ' & $iFileSize & ' -> Error code: ' & @error & ' extended: ' & @extended & @CRLF)

$iFileSize = _FTP_GetLastResponseInfo($iErr, $sMessage) ; no error
ConsoleWrite('$sMessage = ' & $sMessage & ' err = ' & $iErr & ' -> Error code: ' & @error & ' extended: ' & @extended & @CRLF)

Local $iFindClose = _FTP_FindFileClose($h_Handle)

Local $iFtpc = _FTP_Close($hConn)
Local $iFtpo = _FTP_Close($hOpen)

[Boulanza]

Ce code nous permet d'avoir des rensegnements sur les dossies instalés sur un serveur FTP, mais pas les fichiers. Je continue la recherche.

► Afficher le texte

#RequireAdmin
#include <Array.au3>
#include <FTPEx.au3>
#include <MsgBoxConstants.au3>

Global $sServer= " "
Global $sUsername= " "
Global $sPass= " "
;Global $Connect,$Open,$fileOnFtp

Local $hOpen = _FTP_Open('MyFTP Control', 0)
If Not @error Then
; passive allows most protected FTPs to answer
Local $hConn = _FTP_Connect($hOpen, $sServer, $sUsername, $sPass)
If Not @error Then
Local $aFile = _FTP_ListToArrayEx($hConn, 0)
If Not @error Then
_ArrayDisplay($aFile)
Else
MsgBox($MB_SYSTEMMODAL, "Error", '_FTP_ListToArrayEx($Conn, 0)' & @CRLF & _
'@error = ' & @error & ' @extended = ' & @extended)
EndIf
Local $iFtpc = _FTP_Close($hConn)
Else
MsgBox($MB_SYSTEMMODAL, "Error", '_FTP_Connect($Open, ' & $sServer & ', ' & $sUsername & ', ' & $sPass & ')' & @CRLF & _
'@error = ' & @error & ' @extended = ' & @extended)
EndIf

Local $iFtpo = _FTP_Close($hOpen)
Else
MsgBox($MB_SYSTEMMODAL, "Error", "_FTP_Open('MyFTP Control')" & @CRLF & _
'@error = ' & @error & ' @extended = ' & @extended)
EndIf

[Oversid3]

C'est un peu normal, dans ce code tu demandes simplement une liste a partir d'un endroit (la racine du FTP je suppose).

Si celle-ci ne contient que des dossiers, il te liste les dossiers.

Il faut ensuite utiliser l'array créer qui contient la liste des dossiers pour refaire une demande _FTP_ListToArrayEx dans chaque dossier (avec une boucle for $i=0 to Ubound $aFile )

Il n'y a pas de fonction pour généré une arborescence complete directement, tu dois la créée.