Probleme avec FindFirst?

Bonjour...

Je cherche à explorer un répertoire qui contient plein de fichiers ini jpeg txt et un autre répertoire. Je souhaite pouvoir récupérer le nom du répertoire sans les fichiers ini jpeg et txt.

Voila mon programme:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 var TSR_Recherche : TSearchRec; If FindFirst('c:\monRepertoire\'+ '*.*',faDirectory,TSR_Recherche)=0 Then begin repeat If ((TSR_Recherche.FindData.cFileName<>'.')and (TSR_Recherche.FindData.cFileName<>'..')) then ListBox1.Items.Add(TSR_Recherche.FindData.cFileName); Until FindNext(TSR_Recherche)<>0; end; FindClose(TSR_Recherche);
Ce code me permet bien d'afficher le sous répertoire de "monRepertoire" dans la ListBox1 mais le problème c'est qu'il m'affiche également tous les fichiers ini jpeg et txt.

Comment ne récupérer que le répertoire sans les fichiers autour?

Merci d'avance ;)

ben tu rajoutes un test supplémentaire dans ta boucle :koi:

Code:

1
2
3
4
5
6
7
            repeat
                If ((TSR_Recherche.FindData.cFileName<>'.') and 
                    (TSR_Recherche.FindData.cFileName<>'..') and 
                    (DirectoryExists(TSR_Recherche.FindData.cFileName))) then
                        ListBox1.Items.Add(TSR_Recherche.FindData.cFileName);
            Until FindNext(TSR_Recherche)<>0;

Salut
La méthode de Denokan est bonne mais tu peux aussi tester les attributs du résultat de la recherche. ex :

Code:

1
2
3
4
5
6
7
 
            repeat
                If ((TSR_Recherche.FindData.cFileName<>'.') and 
                    (TSR_Recherche.FindData.cFileName<>'..') and 
                    (TSR_Recherche.Attr  = faDirectory) then
                        ListBox1.Items.Add(TSR_Recherche.FindData.cFileName);
            Until FindNext(TSR_Recherche)<>0;