工程翻譯推薦翻譯社

唯讀屬性，如果檔案指標在 TextStream 檔案末尾，則該屬性傳回 True；不然傳回 False翻譯

object.AtEndOfStream

AtEndOfStream 屬性僅合用於已開啟供讀取的 TextStream 檔案；不然就會出錯。

Const ForReading = 1
    MsgBox fid.ReadLine         '將讀取到的文字檔內容(一行)顯示出來



Dim fid As TextStream

描寫

語法

While Not fid.AtEndOfStream     '判定是否已讀到檔案結尾


請注意
Dim fso As FileSystemObject
Wend
fid.Close
End Sub
1. 進入VB6翻譯社 點選 MENU / Project / References
2. 點選 Microsoft Scripting Runtime, 並肯定引用此 .dll 檔



Private Sub Command1_Click()
Set fid = fso.OpenTextFile("C:\testfile.txt", ForReading)

以下部份援用自 Visual Studio 6.0 MSDN 光碟

AtEndOfStream 屬性

下面程式碼為 AtEndOfStream 屬性的用法典範榜樣：

Set fso = CreateObject("Scripting.FileSystemObject")

object 始終是一個 TextStream 物件的名稱。

準備工作