GetAttr, fonction

  • Article

Renvoie une valeur de type Integer indiquant les attributs d’un fichier, d’un répertoire ou d’un dossier.

Syntaxe

GetAttr(pathname)

L’argumentpathname requis est une expression de chaîne qui spécifie un nom de fichier. L’argument pathname peut préciser le répertoire ou le dossier, et le lecteur.

Valeurs de retour

La fonction GetAttr renvoie la somme des valeurs d’attribut ci-dessous :

Constante Valeur Description
vbNormal 0 Normale.
vbReadOnly 1 En lecture seule.
vbHidden 2 Cachés.
vbSystem 4 Fichier système. Non disponible sur Macintosh.
vbDirectory 16 Répertoire ou dossier.
vbArchive 32 Le fichier a été modifié depuis la dernière sauvegarde. Non disponible sur Macintosh.
vbAlias 64 Le nom de fichier spécifié est un alias. Disponible uniquement sur Macintosh.

Remarque

Ces constantes sont spécifiées par Visual Basic pour Applications. Vous pouvez les utiliser partout dans votre code pour remplacer des valeurs réelles.

Remarques

Pour déterminer les attributs définis, utilisez l’opérateur And pour effectuer une comparaison au niveau du bit de la valeur retournée par la fonction GetAttr et de la valeur de l’attribut de fichier individuel souhaité. Si le résultat est différent de zéro, le fichier comporte l’attribut indiqué. Par exemple, la valeur renvoyée pour l’expression And ci-dessous est zéro si l’attribut Archive n’est pas défini :

Result = GetAttr(FName) And vbArchive

Une valeur non nulle est renvoyée si le fichier comporte l’attribut Archive.

Exemple

Cet exemple utilise la fonction GetAttr pour déterminer les attributs d’un fichier et d’un répertoire ou d’un dossier. Sur Macintosh, seules les constantes vbNormal, vbReadOnly, vbHidden et vbAlias sont disponibles.

Dim MyAttr
' Assume file TESTFILE has hidden attribute set.
MyAttr = GetAttr("TESTFILE")    ' Returns 2.

' Returns nonzero if hidden attribute is set on TESTFILE.
Debug.Print MyAttr And vbHidden    

' Assume file TESTFILE has hidden and read-only attributes set.
MyAttr = GetAttr("TESTFILE")    ' Returns 3.

' Returns nonzero if hidden attribute is set on TESTFILE.
Debug.Print MyAttr And (vbHidden + vbReadOnly)    

' Assume MYDIR is a directory or folder.
MyAttr = GetAttr("MYDIR")    ' Returns 16.

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.