Bonjour,

J'ai créé la fonction suivante pour lister les fichiers d'un répertoire donné :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
void   __fastcall ListerFichiers(TStringList *liste, AnsiString NomRep, bool SousRep)
{
TSearchRec Rec;
 
if (FindFirst(NomRep+"*.*", faAnyFile, Rec) == 0)
{
    do
    {
        liste->Add(NomRep+Rec.Name);
        if ((Rec.Attr && faDirectory >0) && (Rec.Name[1] != '.') && (SousRep == true))
            ListerFichiers(liste, NomRep+Rec.Name, true);
    } while (FindNext(Rec) == 0);
    FindClose(Rec);
}
}
Or lorsque je teste mon code avec MemProof, il détecte à chaque fois des erreurs lors de l'utilisation de FindFirst, il indique :

FindFirstFile("nom_du_fichier_trouvé") Error $0000010B
C'est étonnant qu'il affiche FindFirstFile, alors que j'utilise FindFirst de la VCL, mais bon, passons... J'ai essayé d'utiliser FindFirst en dehors de cette fonction, et j'ai le même type d'erreur avec MemProof.

J'ai le même type de problème avec CloseHandle (cf mon message un peu + bas)...

D'où peut venir ce souci ? Y'a-t'il une autre fonction que FindFirst pour lister les fichiers ?

En vous remerciant pour vos idées...