Propriété Attributes

Article
04/07/2023

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.

Partager via