Remarque : La fonction, la méthode, l’objet ou la propriété décrits dans cette rubrique est désactivée si le service d’expressions de Microsoft Jet s’exécute en mode sandbox, ce qui empêche l’évaluation d’expressions potentiellement non sûres. Pour plus d’informations sur le mode sandbox, recherchez « mode sandbox » dans l’Aide.
Renvoie une longue représentation du mode de fichier pour les fichiers ouverts à l’aide de l’instruction Open.
Syntaxe
FileAttr (filenumber, returntype)
La syntaxe de la fonction FileAttr présente les arguments suivantes :
|
Argument |
Description |
|
filenumber |
Obligatoire. Integer. Tout numéro de fichier valide. |
|
type de retour |
Obligatoire. Integer. Nombre indiquant le type d’informations à renvoyer. Spécifiez 1 pour renvoyer une valeur indiquant le mode fichier. Sur les systèmes 16 bits uniquement, spécifiez 2 pour récupérer une poignée de fichier du système d’exploitation. Returntype 2 n’est pas pris en charge dans les systèmes 32 bits et provoque une erreur. |
Renvoyer des valeurs
Lorsque la valeur de retourargument est 1, les valeurs de retour suivantes indiquent le mode d’accès au fichier :
|
Mode |
Valeur |
|
Input |
1 |
|
Sortie |
2 |
|
Aléatoire |
4 |
|
Ajout |
8 |
|
Binaire |
32 |
Exemple
Remarque : Les exemples qui suivent illustrent l’utilisation de cette fonction dans un module Visual Basic pour Applications (VBA). Pour plus d’informations sur l’travail avec VBA, sélectionnez Référence du développeur dans la liste de listes en regard de Rechercher, puis entrez un ou plusieurs termes dans la zone de recherche.
Cet exemple utilise la fonction FileAttr pour renvoyer le mode fichier et la poignée de fichier d’un fichier ouvert. La poignée de fichier est renvoyée uniquement sur les systèmes 16 bits. sur les systèmes 32 bits, la transmission de 2 comme deuxième argument génère une erreur.
Dim FileNum, Mode, Handle
FileNum = 1 ' Assign file number.
Open "TESTFILE" For Append As FileNum ' Open file.
Mode = FileAttr(FileNum, 1) ' Returns 8 (Append file mode).
Handle = FileAttr(FileNum, 2) ' Returns file handle.
Close FileNum ' Close file.
