GetAttr, fonction
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é. |
| 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.