共用方式為


AtEndOfLine 屬性

唯讀屬性,如果檔案指標緊接在TextStream檔案中的行尾標記之前,則會傳回True;如果否,則為 False。

語法

物件AtEndOfLine

物件一律是TextStream物件的名稱。

註解

AtEndOfLine屬性僅適用于開啟以供讀取的TextStream檔案;否則會發生錯誤。

下列程式碼說明 AtEndOfLine 屬性的使用方式。

Dim fs, a, retstring
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.OpenTextFile("c:\testfile.txt", ForReading, False)
Do While a.AtEndOfLine <> True
    retstring = a.Read(1)
    ...
Loop
a.Close

另請參閱

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應