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 : Sélectionner tout - Visualiser dans une fenêtre à part
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