Nota
La función, el método, el objeto o la propiedad descritos en este tema se deshabilitan si el servicio de expresiones de Microsoft Jet se ejecuta en modo de espacio aislado, lo que impide la evaluación de expresiones potencialmente inseguras. Para obtener más información sobre el modo de espacio aislado, busque "modo de espacio aislado" en la Ayuda.
Devuelve un entero que contiene el valor booleano True cuando se llega al final de un archivo abierto para una entradaaleatoria o secuencial.
Sintaxis
EOF(filenumber)
El argumento filenumberrequerido es un entero que contiene cualquier número de archivo válido.
Observaciones
Use EOF para evitar el error generado al intentar que la entrada pase del final de un archivo.
La función EOF devuelve False hasta que se llega al final del archivo. Con los archivos abiertos para acceso aleatorio o binario , EOF devuelve False hasta que la última instrucción Get ejecutada no puede leer un registro completo.
Con archivos abiertos para acceso binario , un intento de leer el archivo usando la función de entrada hasta que EOF devuelva True genera un error. Use las funciones LOF y Loc en lugar de EOF al leer archivos binarios con entrada, o use Obtener al usar la función EOF . Con los archivos abiertos para la salida, EOF siempre devuelve True.
Ejemplo
Nota
Los ejemplos siguientes muestran el uso de esta función en un módulo de Visual Basic para Aplicaciones (VBA). Para obtener más información sobre cómo trabajar con VBA, seleccione referencia para desarrolladores en la lista desplegable situada junto a búsqueda y escriba uno o varios términos en el cuadro de búsqueda.
En este ejemplo se usa la función EOF para detectar el final de un archivo. En este ejemplo se supone que MYFILE es un archivo de texto con unas pocas líneas de texto.
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