1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50
|
void fonction::Cherch_Fic_Rep(AnsiString nom, AnsiString rep, TStrings * ListeFichiers,AnsiString nb )
{
AnsiString ext1;
AnsiString ext2;
AnsiString ext3;
rep= rep + "\\";
sous_repertoire = "";
fichier = "";
TSearchRec sr;
HANDLE hfind;
WIN32_FIND_DATA wfd;
hfind= FindFirstFile ((rep+"*.*").c_str(), &wfd ); // pour aller dans le repertoire demander
if ( hfind != INVALID_HANDLE_VALUE )
{
do
{
// vérifie que ce n'est pas le répertoire racine
if( wfd.cFileName[0] != '.')
{
// fichier
fichier = rep + wfd.cFileName;
if (!FindFirst(rep+"*.*",faAnyFile,sr))
{
if((sr.Attr & faDirectory) > 0)
{
}
else
{
Lecture_Ini_Extension(&ext1,&ext2,&ext3, nb);
TStringList *Extensions = new TStringList;
Extensions->Add(ext1);
Extensions->Add(ext2);
Extensions->Add(ext3);
Search(nom,rep, Extensions, ListeFichiers, fichier, file,nb);
delete Extensions;
ListeFichiers-> Add(FindNextFile( hfind, &wfd));
}
}
}
// }
}while(FindNextFile( hfind, &wfd)); // suite de la recherche /*
// recherche terminé
FindClose(hfind);
}
} |
Partager