中科新闻网大城县有哪些村子合并:VB中如何判断随机文件中有没有记录!!
来源：百度文库 编辑：中科新闻网 时间：2024/05/03 03:22:31
刚建立的随机文件(*.ran)中是没有文件的,如何在代码中判断有没有记录。
请高手给出代吗呀!!!
请高手给出代吗呀!!!
lof(文件号),函数，求文件长度，求出来是0，自然没有记录
open filename as random as 1
if lof(1)=0 then msgbox "File is empty"
close 1
注意，建议使用random打开方式，因为这样文件没有建立也能适应，否则文件没有建立成功会出现 运行时错误。
filename是文件名，比如那个"*.ran"
open "*.ran" for input as #1
if lof(1)=0 then
msgbox "No Log"
else
msgbox lof(1)
end if