VBS Tutorial: attributes-AtEndOfLine attributes

AtEndOfLine attributes

TextStreamIn the file, if the file Pointer Points to the end of the line mark, it will returnTrueOtherwise, if it is not read-only, returnFalse.

Object. AtEndOfLine

The object should be the name of the TextStream object.

Description

AtEndOfLineAttribute is only applicable to read-onlyTextStreamFile. Otherwise, an error occurs.

The following code illustrates how to useAtEndOfLineAttribute:

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 = retstringEnd Function