AtEndOfLine (Propiedad)
Descripción
Propiedad de sólo lectura que devuelve True si el puntero del archivo precede inmediatamente al marcador de final de línea en un archivo TextStream. Devuelve False si no le precede.
Sintaxis
objeto.AtEndOfLine
El objeto siempre es el nombre de un objeto TextStream.
Comentarios
La propiedad AtEndOfLine sólo es aplicable a los archivos TextStream que están abiertos para lectura; si no, se produce un error.
El código siguiente demuestra la utilización de la propiedad AtEndOfLine:
Dim fs, a, retstring
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.OpenTextFile("c:\archivoprueba.txt", ForReading, False)
Do While a.AtEndOfLine <> True
retstring = a.Read(1)
...
Loop
a.Close