Recherche recursive sur FTP avec l'api WinINetRésolu

Question

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

elguevel · Accepted Answer

C'est bon j'ai trouv&#233; tout seul comment faire, plus besoin d'aide !!

Recherche recursive sur FTP avec l'api WinINet

1 réponse

Votre réponse

Discussions similaires