Recherche recursive sur FTP avec l'api WinINet [Résolu]

Messages postés
735
Date d'inscription
jeudi 19 décembre 2002
Dernière intervention
22 novembre 2016
- - Dernière réponse : elguevel
Messages postés
735
Date d'inscription
jeudi 19 décembre 2002
Dernière intervention
22 novembre 2016
- 6 sept. 2005 à 15:18
Voila j'ai crée une sorte de client FTP, mais j'ai besoin d'eefectuer une recherche recursive de tout les dossier contenu dans le FTP.

J'ai fait un bout de code :

procedure Recursive( tList : TListBox; Repertoire : string );
var
STRUCT_DATA : _WIN32_FIND_DATAA;
FoundFile : Pointer;
bFound : Boolean;
TypeFile : string;
begin


FoundFile := nil;
bFound := False;


if PConnexionFTP <> nil then
begin


FtpSetCurrentDirectory( PConnexionFTP, Pchar( SlachFTP(Repertoire) ) );
FoundFile := FtpFindFirstFile( PConnexionFTP, PChar('*.*'), STRUCT_DATA, 0, 0 );


if FoundFile <> nil then
repeat


TypeFile := AttributeToStr( STRUCT_DATA.dwFileAttributes );
tList.Items.Add( TypeFile + ' > ' + STRUCT_DATA.cFileName );


bFound := InternetFindNextFile( FoundFile, @STRUCT_DATA );


until not bFound;


InternetCloseHandle( FoundFile );


end;


end;

PS :
- SlachFTP() : rajoute un '/' a la fin de la chaine s'il n'y est pas.
- AttributeToStr() : Renvoi 'Dossier' ou 'Fichier' selon la nature du fichier.

Mais pas moyen d'y arriver, qqn a une idée ?

Damien
Afficher la suite 

Votre réponse

1 réponse

Meilleure réponse
Messages postés
735
Date d'inscription
jeudi 19 décembre 2002
Dernière intervention
22 novembre 2016
3
Merci
C'est bon j'ai trouvé tout seul comment faire, plus besoin d'aide !!

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 105 internautes nous ont dit merci ce mois-ci

Commenter la réponse de elguevel

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.