Discussion :

[Bleys]

Bonjour, ou plutot bonne nuit

Je me servais de la FAQ pour m'assister dans un mini projet, et j'aime bien comprendre tout ce que ej fais dans un projet, et notamment quand je prend une source ne venant pas de moi-même directement ...
Ma question est en rapport au listage des fichiers d'un répertoire, il y a la condition suivante :

Code :

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

If Not((Info.Attr And faDirectory)=0)

info est de type TSearchRec.

Un peu de lumière sur cette condition ?

Merci d'avance ...

[Bleys]

C'est bon j'ai compris (enfin si quelqu'un pouvait me confirmer), si je reprends l'exemple ci dessus (en zappant le NOT, c'est pas ça qui me dérangeait ...).

En fait cela "identifie" le type de fichier sélectionné (répertoire, caché, lecture seule, ...) et ça le compare à ce que l'on souhaite (ici en locurrence faDirectory, ce qui veut dire répertoire).

Si les deux concordent on a alors une valeur différente de zéro ...

Donc en gros si je veux ajouter à une liste tous les fichiers non répertoires je faic omme ça :

Code :

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

1
2
3
4
5
 
var recherche : TSearchRec;
Begin
If (Recherche.Attr And faDirectory)=0 then 
Liste.Items.Add( ...

Merci de confirmer

[Jipété]

Yep !

Ça devrait rouler, ton histoire. Moi, j'utilise :

Code :

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

1
2
3
4
5
6
7
8
    If FindFirst( _Path + '\' + '*.*' , faAnyFile , f_RecFileInfo ) = 0 then 
      repeat // compte les fichiers et leur taille
        If ( f_RecFileInfo.Name <> '.' ) and ( f_RecFileInfo.Name <> '..' ) then
          If ( f_RecFileInfo.Attr and faDirectory ) <> faDirectory then begin
            _Files := _Files + 1;
            _octetsF := _octetsF + f_RecFileInfo.Size;
          end;
      until FindNext( f_RecFileInfo ) <> 0;

f_RecFileInfo: TSearchRec; bien sûr, mais ça va mieux en le disant !

HTH,
JP

[Bleys]

Ce qui au final revient au même ..

Ok merci


Bonne journée a bientot