AtEndOfStream

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

object 應為 TextStream對象的名稱。

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

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

Dim file, retstring

Set file = CreateObject("Scripting.FileSystemObject").OpenTextFile("C:\test.txt", ForReading, False)

Do While file.AtEndOfStream ＜＞ True

retstring = file.ReadLine

'. . .

Loop: file.Close