專利翻譯服務    MsgBox fid.ReadLine         '將讀取到的文字檔內容(一行)顯示出來

準備工作

下面程式碼為 AtEndOfStream 屬性的用法類型：

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

Set fso = CreateObject("Scripting.FileSystemObject")
Wend

fid.Close

End Sub

語法

Dim fid As TextStream

Dim fso As FileSystemObject
object.AtEndOfStream
Const ForReading = 1
描寫
以下部分援用自 Visual Studio 6.0 MSDN 光碟
AtEndOfStream 屬性
Set fid = fso.OpenTextFile("C:\testfile.txt", ForReading)
AtEndOfStream 屬性僅合用於已開啟供讀取的 TextStream 檔案；不然就會犯錯。
請注意
Private Sub Command1_Click()

object 始終是一個 TextStream 物件的名稱。
1. 進入VB6翻譯社 點選 MENU / Project / References
2. 點選 Microsoft Scripting Runtime, 並肯定引用此 .dll 檔

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




文章來自: http://blog.xuite.net/hwtang/notes/23618123-VB%E5%88%A4%E6%96%B7%E6%96%87%E5%AD%97%E6%AA%94%E7%B5%90有關各國語文翻譯公證的問題歡迎諮詢天成翻譯公司02-77260931