Nota: La función, método, objeto o propiedad descrita en este tema se deshabilita si el Servicio de expresiones de Microsoft Jet se ejecuta en modo de espacio aislado, lo que impide la evaluación de expresiones potencialmente no seguras. Para obtener más información sobre el modo de espacio aislado, busca "modo de espacio aislado" en la Ayuda.
Devuelve un entero que contiene el valor BooleanTrue cuando se ha alcanzado el final de un archivo abierto para una entradaaleatoria o secuencial.
Sintaxis
EOF( filenumber )
Elargumentofilenumber obligatorio es un entero que contiene cualquier número de archivo válida.
Comentarios
Use EOF para evitar el error generado al intentar obtener una entrada más allá del final de un archivo.
La función EOF devuelve False hasta que se ha alcanzado el 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 los archivos abiertos para el acceso binario , un intento de leer el archivo con la función Entrada hasta que EOF devuelve True genera un error. Use las funciones LOF y Loc en lugar de EOF al leer archivos binarios con La entrada, o bien use Obtener al usar la función EOF . Con los archivos abiertos para 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 algunas 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
