Discussion :

[etranger]

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

[petitcoucou31]

La procedure ci dessous devrait d'aider , en debut tu initialises tes contanste ( FileAttrs .. => faArchive...) en fonction des element que tu veux rechercher .
Dans le cas ci dessous on recher les fichier archive et en lecture seule.
Tu as toute les constantes pour les divers types dans l'aide de delphi ( findfirst)

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
19
20
21
22
 
procedure TFexport.lectureToutFichier;
var
sr:TSearchRec;
FileAttrs:Integer;
chemin:string;
begin
     FileAttrs :=0;
     FileAttrs :=FileAttrs +faReadonly;
     FileAttrs :=FileAttrs +faArchive;
     chemin:=CheminFichierSource+'*.*';
     if FindFirst(chemin,FileAttrs,sr)=0 then
     begin
       repeat
           if(sr.Attr and FileAttrs)=sr.Attr then
           begin
                ListBox1.Items.Add(sr.Name)
           end;
     until FindNext(sr)<>0;
     FindClose(sr);
     end;
end;

Bye.

[etranger]

Merci pour ta réponce

Seulement il y a une chose, vous indiquez FileAttr comme filtre pour la fonction findfirst , puis après vous reéfectuez un test :

Code :

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

if(sr.Attr and FileAttrs)=sr.Attr

Pourquoi ? (si on aurai indiquer faAnyFile comme filtre j'aurai compris, mais là )

et malheureusement, ce que je veux faire c'est exclure certaines sortes de fichiers du traitement , non pas en choisir une certaine sorte (comme dans ton exemple).

donc je croi que cette solution soit la seulle :

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
19
If FindFirst(filter,faAnyFile,Info)=0 then
  begin
    Repeat
      With Info do
        begin
          if (name <> '.')
           and (name <> '..')
           and ((Attr and faHidden) <> faHidden )
           and ((Attr and faSysFile) <> faSysFile )
           and ((Attr and faVolumeID) <> faVolumeID )
           and ((Attr and faDirectory) <> faDirectory )
           then
          begin
          ....
          end;
        end;
    Until FindNext(info)<>0;
  end;
  FindClose(Info);

Même si cette procedure n'est pas optimizée, comme elle n'est pas invoquer très frécaments (combien de fichiers peut contenir un dossier habituellement ?), ça ne géne pas .

en tout cas merci pour avoir pris la paine de répondre

[petitcoucou31]

Tu en entierement raison aucun d'interet de refillter dans ma boucle !! (reflexe des fois idiot , de trop securisé )

Par contre je ne perçois pas tout le raisonnement, entre exclure des element d'un ensemble donné ou choisir les autres , pour moi c'est pareil .


dans tes test tu exclus .
'.' , '..' , qui est la meme chose que fadirectory
faHidden
faSysFile
faVolumeID

donc il reste dans l'ensemble des attribut
faReadOnly
faArchive

donc ma procedure devrai etre equivalente a la tienne , ( avec le test inutile en moins !!) ou alors j'ai pas compris lol

bye !

[etranger]

Oh comme chu béte

Tu a entierment raison, en fait le truc c'est que j'ai imaginer qu'il y avait d'autre types de fichiers que faArchive et faReadOnly (et les autres) , et qu'il falait maitre faAnyfile pour les detecter, en fait j'ai cru que faArchive designait des fichiers genre zip ou rar

Ta solution fonctione sous windows, et elle doit surement aussi fonctioner sous Linux .

Encore merci