Remarque : La fonction, la méthode, l’objet ou la propriété décrite dans cette rubrique est désactivée si le service d’expression Microsoft Jet s’exécute en mode bac à sable, ce qui empêche l’évaluation d’expressions potentiellement dangereuses. Pour plus d’informations sur le mode bac à sable, recherchez « mode bac à sable » dans l’aide.
Retourne un entier représentant les attributs d’un fichier, d’un répertoire ou d’un dossier.
Syntaxe
GetAttr ( pathname )
Le chemin d’accès requisargument est un expression de chaîne qui spécifie un nom de fichier. Le chemin d’accès peut inclure le répertoire ou le dossier et le lecteur.
Valeurs de retour
La valeur retournée par GetAttr est la somme des valeurs d’attribut suivantes :
|
Constante |
Valeur |
Description |
|
vbNormal |
0 |
Normal. |
|
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 changé 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. Les noms peuvent être utilisés n’importe où dans votre code à la place des valeurs réelles.
Notes
Remarque : Les exemples suivants illustrent l’utilisation de cette fonction dans un module Visual Basic pour 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 Rechercher 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 retournée par la fonction GetAttr et de la valeur de l’attribut de fichier individuel souhaité. Si le résultat n’est pas égal à 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 différente de zéro est retournée si l’attribut Archive est défini.
Exemple
Cet exemple utilise la fonction GetAttr pour déterminer les attributs d’un fichier, 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.
