Función EOF

Devuelve Integer que contiene el valor BooleanTrue cuando se ha alcanzado el final de un archivo abierto para el valor Random o Input secuencial.

Sintaxis

EOF(filenumber)

El argumentofilenumber necesario es un entero que contiene cualquier número de archivo válido.

Comentarios

Use EOF para evitar el error que se produce al intentar obtener una entrada tras el final de un archivo.

La función EOF devuelve False hasta que se alcanza el final del archivo. Con los archivos abiertos para el 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 mediante la función Input hasta que EOF devuelve True genera un error. Use las funciones LOF y Loc en lugar de EOF al leer archivos binarios con Input o use Get cuando use la función EOF . Con archivos abiertos para Output, EOF siempre devuelve True.

Ejemplo

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.

Dim InputData
Open "MYFILE" For Input As #1    ' Open file for input.
Do While Not EOF(1)    ' Check for end of file.
    Line Input #1, InputData    ' Read line of data.
    Debug.Print InputData    ' Print to the Immediate window.
Loop
Close #1    ' Close file.

Vea también

• Funciones (Visual Basic para Aplicaciones)

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.