AtEndOfLine Property (FileSystemObject) 

Returns true if the file pointer is positioned immediately before the end-of-line marker in a TextStream file; false if it is not. Read-only.

object.AtEndOfLine

Remarks

The object is always the name of a TextStream object.

The AtEndOfLine property applies only to TextStream files that are open for reading; otherwise, an error occurs.

The following code illustrates the use of the AtEndOfLine property:

function GetALine(filespec)

{

   var fso, a, s, ForReading;

   ForReading = 1, s = "";

   fso = new ActiveXObject("Scripting.FileSystemObject");

   a = fso.OpenTextFile(filespec, ForReading, false);

   while (!a.AtEndOfLine)

   {

      s += a.Read(1);

   }

   a.Close( );

   return(s);

}

Function ReadEntireFile(filespec)

   Const ForReading = 1

   Dim fso, theFile, retstring

   Set fso = CreateObject("Scripting.FileSystemObject")

   Set theFile = fso.OpenTextFile(filespec, ForReading, False)

   Do While theFile.AtEndOfLine <> True

      retstring = theFile.Read(1)

   Loop

   theFile.Close

   ReadEntireFile = retstring

End Function

Applies To:

TextStream Object

See Also

Reference

AtEndOfStream Property (FileSystemObject)