vb 判断txt不为空

发布网友发布时间：2023-08-27 23:57

共4个回答

热心网友时间：2023-08-28 00:27

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

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

热心网友时间：2023-08-28 00:27

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

热心网友时间：2023-08-28 00:28

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

热心网友时间：2023-08-28 00:28

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

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com