印度語口譯價格

Private Sub Command1_Click()

Dim fso As FileSystemObject
Const ForReading = 1
Set fso = CreateObject("Scripting.FileSystemObject")

請留意
    MsgBox fid.ReadLine         '將讀取到的文字檔內容(一行)顯示出來
object.AtEndOfStream
以下部份引用自 Visual Studio 6.0 MSDN 光碟
AtEndOfStream 屬性
描寫
語法

1. 進入VB6翻譯社 點選 MENU / Project / References
2. 點選 Microsoft Scripting Runtime, 並肯定援用此 .dll 檔



AtEndOfStream 屬性僅合用於已開啟供讀取的 TextStream 檔案；否則就會犯錯。
Wend
fid.Close
End Sub
下面程式碼為 AtEndOfStream 屬性的用法典範榜樣：
While Not fid.AtEndOfStream     '判定是不是已讀到檔案結尾
Set fid = fso.OpenTextFile("C:\testfile.txt", ForReading)

Dim fid As TextStream

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

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

準備工作