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 entier contenant la valeur booléenne True lorsque la fin d’un fichier ouvert pour une entréealéatoire ou séquentielle est atteinte.
Syntaxe
EOF(numéro de fichier)
L’argument numéro_fichierrequis est un nombre entier contenant un numéro de fichier valide.
Remarques
Utilisez EOF pour éviter l’erreur générée lors de la tentative d’obtention d’une entrée au-delà de la fin d’un fichier.
La fonction EOF renvoie False jusqu’à ce que la fin du fichier soit atteinte. Lorsque des fichiers sont ouverts pour un accès aléatoire ou binaire , EOF renvoie False jusqu’à ce que la dernière instruction Get exécutée ne puisse pas lire un enregistrement entier.
Lorsque des fichiers sont ouverts pour un accès binaire , une tentative de lecture du fichier à l’aide de la fonction Input jusqu’à ce que EOF renvoie True génère une erreur. Utilisez les fonctions LOF et Loc au lieu d’EOF lors de la lecture de fichiers binaires avec entrée, ou utilisez Get lorsque vous utilisez la fonction EOF . Lorsque des fichiers sont ouverts pour la sortie, EOF renvoie toujours True.
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 EOF pour détecter la fin d’un fichier. Cet exemple suppose qu’il s’agit d’un MYFILE fichier texte comportant quelques lignes de texte.
Dim InputData
' Open file for input.
Open "MYFILE" For Input As #1
' Check for end of file.
Do While Not EOF(1)
' Read line of data.
Line Input #1, InputData
' Print to the Immediate window.
Debug.Print InputData
Loop
' Close file.
Close #1