VB中如何判断随机文件中有没有记录!!

2025-01-01 04:59:23

推荐回答（2个）

回答1：

lof(文件号),函数，求文件长度，求出来是0，自然没有记录
open filename as random as 1
if lof(1)=0 then msgbox "File is empty"
close 1
注意，建议使用random打开方式，因为这样文件没有建立也能适应，否则文件没有建立成功会出现运行时错误。
filename是文件名，比如那个"*.ran"

回答2：

open "*.ran" for input as #1
if lof(1)=0 then
msgbox "No Log"
else
msgbox lof(1)
end if