Discussion :

[Jayceblaster]

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

[denokan]

ben tu rajoutes un test supplémentaire dans ta boucle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

[rbh]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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;