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