EOF 函数
更新：2007 年 11 月
当到达以 Random 或顺序 Input 模式打开的文件尾时，返回 Boolean 值 True。
Public Function EOF(ByVal FileNumber As Integer) As Boolean
参数
- FileNumber
必选。一个包含任何有效文件号的 Integer。
异常
异常类型 |
错误号 |
条件 |
|---|---|---|
FileNumber 不存在。 |
||
文件模式无效。 |
如果正在升级使用无结构错误处理的 Visual Basic 6.0 应用程序，请参见“错误号”一列。（您可以根据 Number 属性（Err 对象）比较错误号。）然而，如果可能，应当考虑用 Visual Basic 的结构化异常处理概述替换这种错误控制。
备注
使用 EOF 可避免因试图使输入超出文件尾而产生的错误。
在到达文件尾之前，EOF 函数始终返回 False。对于以 Random 或 Binary 访问模式打开的文件，EOF 始终返回 False，直到最后一次执行的 FileGet 函数无法读取整个记录。
对于以 Binary 访问模式打开的文件，如果试图在 EOF 返回 True 之前用 Input 函数读取整个文件，则会产生错误。在用 Input 读取二进制文件时，用 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)
智能设备开发人员说明
不支持此函数。
要求
**模块：**FileSystem
**程序集：**Visual Basic 运行库（在 Microsoft.VisualBasic.dll 中）