我想在打开一个文本文件后首先判断它的内容是否为空，请问应怎样做？我的程序中可以使用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

非常感谢楼上！

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