Remarque : Nous faisons de notre mieux pour vous fournir le contenu d’aide le plus récent aussi rapidement que possible dans votre langue. Cette page a été traduite automatiquement et peut donc contenir des erreurs grammaticales ou des imprécisions. Notre objectif est de faire en sorte que ce contenu vous soit utile. Pouvez-vous nous indiquer en bas de page si ces informations vous ont aidé ? Voici l’article en anglais à des fins de référence aisée.
Remarque : Si le Service Microsoft Jet Expression s’exécute en mode sandbox, qui empêche l’évaluation des expressions potentiellement dangereuses de la fonction, une méthode, un objet ou une propriété décrites dans cette rubrique est désactivée. Pour plus d’informations sur le mode sandbox, recherchez « mode sandbox » dans l’aide.
Renvoie un nombre entier représentant les attributs d’un fichier, répertoire ou dossier.
Syntaxe
GetAttr ()chemin d’accès)
Le chemin d’accèsde requisargument est une expression de chaîne qui spécifie un nom de fichier. Le chemin d’accès peut inclure le répertoire ou dossier et le lecteur.
Renvoyer des valeurs
La valeur renvoyée par GetAttr est la somme des valeurs d’attributs suivantes :
Constante | Valeur | Description |
|---|---|---|
|
vbNormal |
0 |
Mode normal. |
|
vbReadOnly |
1 |
En lecture seule. |
|
vbHidden |
2 |
Masqué. |
|
vbSystem |
4 |
Fichier système. Non disponible sur Macintosh. |
|
vbDirectory |
16 |
Répertoire ou dossier. |
|
vbArchive |
32 |
Fichier a changé depuis la dernière sauvegarde. Non disponible sur Macintosh. |
|
vbAlias |
64 |
Nom de fichier spécifié est un alias. Disponible uniquement sur Macintosh. |
Remarque : Ces constantes sont spécifiées par Visual Basic pour Applications. Les noms peuvent être utilisés n’importe où dans votre code à la place des valeurs réelles.
Remarques
Remarque : Exemples suivants illustrent l’utilisation de cette fonction dans une Visual Basic pour le module d’Applications (VBA). Pour plus d’informations sur l’utilisation de VBA, sélectionnez Référence du développeur dans la liste déroulante en regard de recherche et entrez un ou plusieurs termes dans la zone de recherche.
Pour déterminer les attributs définis, utilisez l’opérateur And pour effectuer une comparaison de bits de la valeur renvoyée par la fonction GetAttr et la valeur de l’attribut de fichier souhaité. Si le résultat n’est pas zéro, cet attribut est défini pour le fichier nommé. Par exemple, la valeur de retour de l’expression And suivante 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 l’attribut Archive est défini.
Exemple
Cet exemple utilise la fonction GetAttr pour déterminer les attributs d’un fichier et le répertoire ou le 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.
