GetAttr, fonction

Article
09/12/2008

Mise à jour : novembre 2007

Retourne une valeur FileAttribute représentant les attributs d'un fichier, d'un répertoire ou d'un dossier.

La fonctionnalité My permet une meilleure productivité et de meilleures performances dans les opérations d'E/S sur fichier que FileAttribute. Pour plus d'informations, consultez My.Computer.FileSystem, objet.

Public Function GetAttr(ByVal PathName As String) As FileAttribute

Paramètres

PathName
Requis. Expression String qui spécifie un nom de fichier, de répertoire ou de dossier. PathName peut inclure le répertoire ou dossier ainsi que le lecteur.

Valeur de retour

La valeur retournée par GetAttr est la somme des valeurs d'énumération suivantes :

Valeur	Constante	Description
Normal	vbNormal	Normal.
ReadOnly	vbReadOnly	Lecture seule.
Hidden	vbHidden	Caché.
System	vbSystem	Fichier système.
Directory	vbDirectory	Répertoire ou dossier.
Archive	vbArchive	Fichier modifié depuis la dernière sauvegarde.
Alias	vbAlias	Le fichier a un nom différent.

Remarque :
Ces énumérations sont spécifiées par le langage Visual Basic. Les noms peuvent remplacer les valeurs réelles partout dans votre code.

Exceptions

Type d'exception	Numéro de l'erreur	Condition
IOException	52	Pathname n'est pas valide ou contient des caractères génériques.
FileNotFoundException	53	Le fichier cible n'existe pas.

Consultez la colonne « Numéro d'erreur » si vous mettez à niveau des applications Visual Basic 6.0 qui utilisent la gestion des erreurs non structurée. (Vous pouvez comparer le numéro d'erreur par rapport à Number, propriété (objet Err).) Toutefois, lorsque cela est possible, vous devez envisager de remplacer un tel contrôle d'erreur par Vue d'ensemble de la gestion structurée des exceptions pour Visual Basic.

Notes

Pour déterminer les attributs définis, utilisez l'opérateur And pour effectuer une comparaison d'opérations de bits entre la valeur retournée par la fonction GetAttr et la valeur de l'attribut de fichier individuel souhaité. Si le résultat est différent de zéro, cet attribut est défini pour le fichier désigné. 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 et un répertoire ou un dossier.

Dim MyAttr As FileAttribute
' Assume file TESTFILE is normal and readonly.
MyAttr = GetAttr("C:\TESTFILE.txt")   ' Returns vbNormal.

' Test for normal.
If (MyAttr And FileAttribute.Normal) = FileAttribute.Normal Then
   MsgBox("This file is normal.")
End If

' Test for normal and readonly.
Dim normalReadonly As FileAttribute
normalReadonly = FileAttribute.Normal Or FileAttribute.ReadOnly
If (MyAttr And normalReadonly) = normalReadonly Then
   MsgBox("This file is normal and readonly.")
End If

' Assume MYDIR is a directory or folder.
MyAttr = GetAttr("C:\MYDIR")
If (MyAttr And FileAttribute.Directory) = FileAttribute.Directory Then
   MsgBox("MYDIR is a directory")
End If