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

elguevel 735 Messages postés jeudi 19 décembre 2002Date d'inscription 22 novembre 2016 Dernière intervention - 29 août 2005 à 15:56 - Dernière réponse : elguevel 735 Messages postés jeudi 19 décembre 2002Date d'inscription 22 novembre 2016 Dernière intervention
- 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
elguevel 735 Messages postés jeudi 19 décembre 2002Date d'inscription 22 novembre 2016 Dernière intervention - 6 sept. 2005 à 15:18
3
Merci
C'est bon j'ai trouvé tout seul comment faire, plus besoin d'aide !!

Merci elguevel 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 118 internautes 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.