Propriété Attributes
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 :
Élément | 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.
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour