Partager via


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.