Discussion :

[n00bi]

Voila dans une fonction pour compter le nombre de sous-repertoire d'un répertoire sélectionné par l'utilisateur, je testes la propriété Attr pour savoir si le fichier regardé est un répertoire :

Propriété Attr : (cf aide Delphi)

Attr Type fichier

$00000001 | Fichiers en lecture seule
$00000002 | Fichiers cachés
$00000004 | Fichiers système
$00000008 | Fichier ID de volume
$00000010 | Fichiers répertoire
$00000020 | Fichier archive
$0000003F | Tout fichier


Au debut j'avais fait le test Attr = $00000010 pour savoir si c'était un répertoire.

Cela comptait la majorité des répertoires mais pas les répertoires archives.

Du coup j'ai fait le test Attr = $00000030 ( repertoire + fichier archive )

cela en comptait plus mais je me rends compte alors que cela ne prends pas en compte les repertoires en lecture seule, les repertoires systemes et les repertoires cachés.

Cela rajoute 3 combinaisons, sans oublié que l'on peut avoir des repertoires archives systemes en lecture seule cachés. Ca fait beaucoup de combinaisons à tester. Je voulais savoir s'il y a une autre solution plus simple a mettre en place pour n'oublier aucun type de répertoire. Merci d'avance d'avoir pris le temps de lire ce message.

[mbp566]

Moi je ferais ma boucle sur tous les fichiers et pour chacun d'entre eux je ferais un:

Code :

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

if DirectoryExists(...) then ...

(g pas teste mais je pense que DirectoryExists repond true meme si le rep est cache, archive ou autre.
(si tu as une erreur de 2 repertoire c'est parceque ca compte les repertoire "." et "..")

[Pierre Castelain]

Ce n'est pas comme ça qu'on utilise les valeurs énumérées. Il te suffit de faire un et logique et de vérifier que le résultat n'est pas nul :

Code :

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

1
2
 
  if Attr and faDirectory <> 0 then

[n00bi]

Merci beaucoup je vais tester . Je mets le tag "résolu" en attendant.