Remarque
La fonction, la méthode, l’objet ou la propriété décrits dans cette rubrique est désactivé 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.
Renvoie un Long représentant le mode de fichier des fichiers ouverts à l’aide de l’instruction Open .
Syntaxe
FileAttr(filenumber,returntype)
La syntaxe de la fonction FileAttr contient les arguments suivants :
| Argument | Description |
|---|---|
| Numéro de fichier | Obligatoire. Entier. N’importe quel numéro de fichier valide. |
| Type de retour | Obligatoire. Entier. Numéro indiquant le type d’information à renvoyer. Spécifiez 1 pour renvoyer une valeur indiquant le mode de fichier. Sur les systèmes 16 bits uniquement, spécifiez 2 pour récupérer un handle 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. |
Valeurs de retour
Lorsque l’argument returntypea la valeur 1, les valeurs de retour suivantes indiquent le mode d’accès au fichier :
| Mode | Valeur |
|---|---|
| Entrée | 1 |
| Sortie | 2 |
| Aléatoire | 4 |
| Ajout | 8 |
| Binaire | 32 |
Exemple
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 développeur dans la liste déroulante 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 de fichier et le handle d’un fichier ouvert. Le descripteur de fichier est renvoyé uniquement sur les systèmes 16 bits ; Sur les systèmes 32 bits, passer 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.