Attributes, propriété

---

Description

Définit ou renvoie les attributs de fichiers ou de dossiers. En lecture/écriture ou lecture seule, en fonction de l'attribut.

Syntaxe

object.Attributes [= newattributes]

La propriété Attributes comprend les éléments suivants :

Élément	Description
object	Requis. Correspond toujours au nom d'un objet File ou Folder.
newattributes	Facultatif. Si elle est fournie, la valeur newattributes est la nouvelle valeur des attributs de l'object spécifié.

Valeurs

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

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

Notes

Toute tentative de modification de l'un des attributs en lecture seule (Alias, Compressed ou Directory) est ignorée.

Lors de la définition d'attributs, il est généralement recommandé de commencer par lire les attributs en cours, puis de changer chaque attribut individuellement, si besoin est, puis de réécrire les attributs.

Le code suivant illustre l'emploi de la propriété Attributes avec un fichier :

Function ToggleArchiveBit(filespec)
  Dim fso, f
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.GetFile(filespec)
  If f.attributes and 32 Then
    f.attributes = f.attributes - 32
    ToggleArchiveBit = "Bit d'archive effacé."
  Else
    f.attributes = f.attributes + 32
    ToggleArchiveBit = "Bit d'archive défini."
  End If
End Function

---