EOF 函式

發行項
08/21/2008

更新：2007 年 11 月

當為 Random 或循序 Input 開啟的檔案到達結尾時，傳回布林 (Boolean) 值 True。

Public Function EOF(ByVal FileNumber As Integer) As Boolean

參數

FileNumber
必要項。包含任何有效檔案號碼的 Integer。

例外狀況

例外狀況類型	錯誤代碼	條件
IOException	52	FileNumber 不存在。
IOException	54	檔案模式無效。

如果將使用非結構化錯誤處理的 Visual Basic 6.0 應用程式升級，請參閱「錯誤代碼」資料行 (您可以將錯誤代碼與 Number 屬性 (Err 物件) 比對)。但是，請盡可能考慮以 Visual Basic 的結構化例外處理概觀取代這類錯誤控制項。

備註

使用 EOF 來避免因為嘗試取得超過檔案結尾的輸入所產生的錯誤。

EOF 函式在到達檔案結尾之前，都會傳回 False。對於針對 Random 或 Binary 存取所開啟的檔案，EOF 將傳回 False，直到最後一次執行的 FileGet 函式無法讀取整筆記錄為止。

對於針對 Binary 存取所開啟的檔案，如果使用 Input 函式試圖讀取檔案 (直到 EOF 傳回 True 為止)，便會產生錯誤。以 Input 讀取二進位檔案 (Binary File) 時，請使用 LOF 和 Loc 函式來取代 EOF，或在使用 EOF 函式時使用 Get。為 Output 開啟檔案後，EOF 永遠傳回 True。

範例

這個範例使用 EOF 函式來偵測檔案結尾。這個範例假設 Testfile 是一個內含數行文字的文字檔。

Dim TextLine As String
' Open file.
FileOpen(1, "TESTFILE", OpenMode.Input)
' Loop until end of file.
Do While Not EOF(1) 
' Read line into variable.
   TextLine = LineInput(1)
' Display result in a message box.
   MsgBox("End of file reached at " & TextLine)
Loop
FileClose(1)