Property: AtEndOfStream for TextStream

Download PDF

Updated2024-09-12
1 minute(s) read

DIAdem 2021 Education
DIAdem 2021 Professional
DIAdem 2021 Advanced
+ 3

Checks whether the read pointer is just before the end of the file of a TextStream file.

Object.AtEndOfStream

Object	TextStream Object with this property
Object.AtEndOfStream	Boolean value with read access The value is True if the read pointer is before the end of file character, otherwise the value is False.

The following example reads in a file line by line to the end of the file:

Copy script

Function ReadFile(sFile)
  Const ForReading = 1
  Dim fso, oMyFile, sOutput
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set oMyFile = fso.OpenTextFile(sFile, ForReading, False)
  Do While oMyFile.AtEndOfStream <> True
    sOutput = sOutput & oMyFile.ReadLine & VBCrLf
  Loop
  oMyFile.Close
  ReadFile = sOutput
End Function

DIAdem Help

Table of Contents

Property: AtEndOfStream for TextStream

See Also

Log in to get a better experience