Discussion :

[Papy214]

Bonjour,

Pour moi, le code suivant devrait me renvoyer uniquement les noms de dossier:

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
16
17
18
 
    if SysUtils.FindFirst(PathFile + '*.*', faDirectory, searchRec) = 0 then
    begin
      try
 
        repeat
          if (SearchRec.Attr And faDirectory =  faDirectory) and (searchRec.name[1] <> '.') then
          begin
            ResultList.Add(PathFile + searchRec.name);
            if Recurse then
              GetDirsList(IncludeTrailingPathDelimiter(PathFile + searchRec.name), ResultList, True);
          end;
 
        until SysUtils.FindNext(searchRec) <> 0;
      finally
        SysUtils.FindClose(searchRec);
      end;
    end;

Pourtant, "SysUtils.FindNext" renvoi aussi les noms de fichiers.

C'est normal ?

Papy !

[Andnotor]

Oui, au niveau FindFirst/FindNext c'est normal. Ces commandes renvoient au minimum les fichiers sans attribut particulier.
A ceux-ci s'ajoutent les fichiers contenant les attributs passés en paramètre (dans ton cas faDirectory).

D'où le test SearchRec.Attr And faDirectory = faDirectory pour ne renvoyer que les répertoires

[Papy214]

J'aurais trouvé plus logique qu'il conserve le filtre. :-)

Merci pour cette précision !