AtEndOfStream

只讀屬性，如果文件指針位於 TextStream文件末，則返回 True；否則返回 False。

object.AtEndOfStream

object應為 TextStream對象的名稱。

AtEndOfStream屬性僅應用於以只讀方式打開的 TextStream文件，否則會出現錯誤。

下列代碼舉例說明如何使用 AtEndOfStream屬性：

Dim fs, a, retstring

Set fs = CreateObject("Scripting.FileSystemObject")

Set a = fs.OpenTextFile("c:\testfile.txt", ForReading, False)

Do While a.AtEndOfStream <> True

retstring = a.ReadLine

...

Loop

a.Close