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.
Retourne un entier contenant la valeur Booléen True lorsque la fin d’un fichier ouvert pour entrée aléatoire ou séquentielle a été atteinte.
Syntaxe
EOF( filenumber )
Le argument filenumber requis est un entier contenant tout numéro de fichier valide.
Notes
Utilisez EOF pour éviter l’erreur générée en tentant d’obtenir une entrée après la fin d’un fichier.
La fonction EOF retourne False jusqu’à ce que la fin du fichier soit atteinte. Avec les fichiers ouverts pour l’accès aléatoire ou binaire , EOF retourne False jusqu’à ce que la dernière instruction Get exécutée ne soit pas en mesure de lire un enregistrement entier.
Avec les fichiers ouverts pour l’accès binaire , une tentative de lecture du fichier à l’aide de la fonction Input jusqu’à ce que EOF retourne True génère une erreur. Utilisez les fonctions LOF et Loc au lieu d’EOF lors de la lecture de fichiers binaires avec Input, ou utilisez Get lorsque vous utilisez la fonction EOF. Avec les fichiers ouverts pour Output, EOF retourne 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 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 EOF pour détecter la fin d’un fichier. Cet exemple suppose que MYFILE est un fichier texte avec 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
