Note
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
Définit ou renvoie les attributs de fichiers ou de dossiers. Accessible en lecture/écriture ou en lecture seule, selon l'attribut.
Syntaxe
objet . Attributs [= newattributes ]
La propriété Attributes présente les éléments suivants :
| Partie | Description |
|---|---|
| object | Obligatoire. Toujours le nom d’un objet File ou Folder . |
| newattributes | Facultatif. S'il est fourni, newattributes est la nouvelle valeur des attributs de l'argument object spécifié. |
Paramètres
L’argument newattributes peut avoir l’une des valeurs suivantes ou toute combinaison logique des valeurs suivantes.
| 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 masqué. L’attribut est en lecture/écriture. |
| Système | 4 | Fichier système. L’attribut est en lecture/écriture. |
| Volume | 8 | Nom du volume du 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 | 1024 | Lien ou raccourci. L’attribut est en lecture seule. |
| Comprimé | 2048 | Fichier compressé. L’attribut est en lecture seule. |
Remarques
Le code suivant illustre l’utilisation de la propriété Attributes avec un fichier.
Sub SetClearArchiveBit(filespec)
Dim fs, f, r
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(fs.GetFileName(filespec))
If f.attributes and 32 Then
r = MsgBox("The Archive bit is set, do you want to clear it?", vbYesNo, "Set/Clear Archive Bit")
If r = vbYes Then
f.attributes = f.attributes - 32
MsgBox "Archive bit is cleared."
Else
MsgBox "Archive bit remains set."
End If
Else
r = MsgBox("The Archive bit is not set. Do you want to set it?", vbYesNo, "Set/Clear Archive Bit")
If r = vbYes Then
f.attributes = f.attributes + 32
MsgBox "Archive bit is set."
Else
MsgBox "Archive bit remains clear."
End If
End If
End Sub
Voir aussi
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.