vb 判断txt不为空

来源：百度知道 编辑：UC知道 时间：2024/09/20 23:27:24
能不能 判断 1.txt 的节字 如果大于0字节 then ..
就是想知道 如果 1.txt如果有数据 刚存入我想存的东西

Option Explicit
Dim txt As String
Private Sub Form_Load()
Open "C:\1.txt" For Input As #1
Input #1, txt
Close
If Len(txt) > 0 Then
MsgBox "错误", 48, "提示"
End If
End Sub

如果你的文件没有打开,可以使用FileLen函数
R=FileLen(app.path & "\1.txt")
Print "长度为:" ;R

如果你的文件已经打开,可以使用Lof函数
这样使用 Lof(文件号)
比如 R=Lof(1) '1为打开的文件号,就是Open.... as #1 井号后的数字

if 1.txt.text="" then
.....
.....
else
....
....
end if

字节和长度一样吗？
正在学习中．．．．．