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.
Renvoie une valeur de type Long qui représente le mode de fichier pour les fichiers ouverts à l’aide de l’instruction Open .
Syntaxe
FileAttr ( filenumber , returntype )
La syntaxe de la fonction FileAttr contient les arguments suivants :
|
Argument |
Description |
|
filenumber |
Obligatoire. Entier. Tout numéro de fichier valide. |
|
type de retour |
Obligatoire. Entier. Nombre indiquant le type d’informations à retourner. 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 descripteur de fichier de 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 le type de retourargument est 1, les valeurs de retour suivantes indiquent le mode d’accès au fichier :
|
Mode |
Value (Valeur) |
|
Input |
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 du développeur dans la liste déroulante en regard de Rechercher et entrez un ou plusieurs termes dans la zone de recherche.
Cet exemple utilise la fonction FileAttr pour retourner le mode de fichier et le handle de fichier d’un fichier ouvert. Le descripteur de fichier est retourné uniquement sur les systèmes 16 bits ; sur les systèmes 32 bits, le passage de 2 comme deuxième argument génère une erreur.
Dim FileNum, Mode, HandleFileNum = 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.
