我想在打开一个文本文件后首先判断它的内容是否为空，请问应怎样做？我的程序中可以使用EOF来将文本文档的内容写到数组中，但我想用BOF的时候老是报“函数未定义”的错误，不知是怎么回事。

Dim s As String, fnr As Integer
fnr=freefile
Open "C:\semcitpgrouporiginal\button" & buttonnumber & "list.txt" For Input As #fnr
Do Until EOF(fnr)
Line Input #fnr, s
List1.AddItem s
Loop
Close #fnr
上面是我将文本文件的内容逐行写入数组的程序，
如果我用BOF来判断文本文件内容是否为空时，就会报“函数未定义”的错误。具体程序如下：
dim i as integer
i=0
Open "C:\semcitpgrouporiginal\button" & buttonnumber & "list.txt" For Input As #fnr
do until BOF（fnr)
i=i+1

loop
close #fnr
if i=1 then
text1.text=" there's no item"
end if

没怎么看,只看到有中文的符号.

没有BOF这个函数。
LOF可以返回一个Open 语句打开的文件的大小，所以可以……

Private Sub Command1_Click()
Dim fnr As Integer
fnr = FreeFile
Open "d:\slorelee\桌面\Test.txt" For Input As #fnr
If LOF(fnr) = 0 Then MsgBox "Empty"
Close #fnr
End Sub

非常感谢楼上！

LZ说的是EOF函数吧

Dim InputData
Open "d:\slorelee\桌面\Test.txt" For Input As #1 ' 为输入打开文件。
Do While Not EOF(1) ' 检查文件尾。
Line Input #1, InputData ' 读入一行数据。
If InputData="" Then Msgbox"Noting" ' 判断是否为空
Loop
Close #1 ' 关闭文件。

也是一个好方法，不过我的文本文件有可能第一行为空。还是非常感谢回复。

if LOF(1)=0 then msgbox "这是一个空文件"

问一下，变量能用#1吗