Attribut (lecture seule et fichier caché)

[marmotte18]

Bonjour,

Comment récupérer les attributs (lecture seule et fichier caché) ?

Merci par avance

 

[Pierrot93]

Re : Attribut (lecture seule et fichier caché)

Re,

peut être ceci :

Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
MsgBox fso.GetFile("C:\MesDocs\Test\classeur1.xls").Attributes

 

[marmotte18]

Re : Attribut (lecture seule et fichier caché)

Bonjour Pierrot93,

Ton code fonctionne très bien. Merci de me l'avoir communiqué. J'ajouterai quand essayant diverses situations, j'ai pu établir :

• 32=fichier normal
• 33=fichier en lecture seule
• 34=fichier caché
• 35=fichier en lecture seule et caché

Peut-être en existe-t-il d'autres ?

 

[Pierrot93]

Re : Attribut (lecture seule et fichier caché)

Bonjour,

ci-dessous la liste des constantes et valeurs associées, cf aide vba :

Constante Valeur Description
Normal 0 Fichier normal. Aucun attribut n'est défini.
ReadOnly 1 Fichier en lecture seule. L'attribut est en lecture/écriture.
Hidden 2 Fichier caché. L'attribut est en lecture/écriture.
System 4 Fichier système. L'attribut est en lecture/écriture.
Volume 8 Étiquette de volume de lecteur de disque. L'attribut est en lecture seule.
Directory 16 Dossier ou répertoire. L'attribut est en lecture seule.
Archive 32 Le fichier a été modifié depuis la dernière sauvegarde. L'attribut est en lecture/écriture.
Alias 64 Lien ou raccourci. L'attribut est en lecture seule.
Compressed 128 Fichier compressé. L'attribut est en lecture seule.

bonne journée
@+

 

[marmotte18]

Re : Attribut (lecture seule et fichier caché)

Bonjour Pierrot93,

Merci pour ta liste de constantes. Je trouve curieux de ne pas y trouver les codes 33, 34 et 35.

Par ailleurs, en listant tous les fichiers de mon répertoire de photos avec mon utilitaire, je trouve des fichiers avec de nouveaux attributs : 6 et 38

L'attribut 38 se conduit bizarrement. J'y trouve une cargaison de fichiers Thumbs.db (fichiers qui ne peuvent pas être mis en évidence avec la recherche Windows - ils n'apparaissent dans aucune liste officielle)

Sous cet attribut, j'y trouve aussi des desktop.ini

 

[Pierrot93]

Re : Attribut (lecture seule et fichier caché)

Re,

regarde également ceci, toujours dans l'aide vba....

Valeurs

L'argument newattributes peut prendre les valeurs suivantes ou toute combinaison logique de ces valeurs :

 

[Pierrot93]

Re : Attribut (lecture seule et fichier caché)

Re,

par exemple pour l'attribut 38, je dirais Archive + System + Hidden