Attributs des fichiers

[Risleure]

Bonjour à tous

J'utilise un code de Ti (colonne 1 à 3) pour lister dans une feuille l'ensemble des fichiers d'un repertoire et de ses sosu repertoires.
Dans la colonne 4 je souhaite récupèrer l'attribut du fichier mais le problème est que je récupère bien la valeur 32= Archive mais aussi la valeur 2080 qui me laisse perplexe :-(
Mais GetAttr n'est peut être pas la bonne manière de faire.

Ci dessous un morceau du code (merci Ti)

ActiveSheet.Hyperlinks.Add Anchor:=Cells(Lig, 1), Address:=.FoundFiles(Trouve)
Cells(Lig, 1) = Mid(.FoundFiles(Trouve), i + 1, Longueur - i)
Cells(Lig, 2) = Format(FileLen(.FoundFiles(Trouve)) / 1000, "# ##0 Ko")
Cells(Lig, 3) = Format(FileDateTime(.FoundFiles(Trouve)), "dd.mm.yyyy")
'Ajout Risleure : Indique les attributs du fichier
Cells(Lig, 4) = GetAttr(.FoundFiles(Trouve))

Merci pour votre aide

 

[MichelXld]

Re : Attributs des fichiers

bonsoir

Est ce qu'il s'agit d'un fichier compressé?

GetAttr giving unexpected results


Bonne soirée
MichelXld

 

[Risleure]

Re : Attributs des fichiers

Merci MichelXLD

Ce fichier est bien dans un repertoire compressé......par erreur.
Merci d'avoir fait une démarche que j'aurais pu faire.

Salutations