Bonsoir tout le monde

voila j'ai une procedure qui traite les fichier d'un dossier pour cela j'utilise la fonction finfirst , seulement j'aimerai traiter que les fichier nomreaux , c'est à dire ni les fichier systémes, ni les répertoires, ni les fichiers cachés, ni les fichiers d'identification de volume.
donc voila comment je procéde :
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
If FindFirst(filter,faAnyFile,Info)=0 then
  begin
    Repeat
      Inc(Count);
      With Info do
        begin
         if (name <> '.')
           and (name <> '..')
           and ((Attr and faDirectory) <> faDirectory )then
         begin
          ...
         end;
      end;
    Until FindNext(info)<>0;
  end;
  FindClose(Info);
sa fonctione, mais se qui me gaine c'est le nombre de de test que je doit effectuer (avec les 'and'), et ici encore , je ne vérifie que si le fichier est un répertoire, je devrait donc encore ajouter 2 ou 3 tests !

ma questions : y'a t'il une meilleure maniére de procéder ?

merci d'avance