高级功能研发区-VBA 问题金字塔客服中心 - 专业程序化交易软件提供商

以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://www.weistock.com/bbs/index.asp)
--  高级功能研发区  (http://www.weistock.com/bbs/list.asp?boardid=5)
----  VBA 问题  (http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=171228)

--  作者：www532412596
--  发布时间：2019/7/23 14:20:15
--  VBA 问题
Sub Open
const ForAppending = 8
const TristateFalse = 0
const ForReading =1
Dim fs, fso,a
Set fs = CreateObject("Scripting.FileSystemObject")
Set fso =fs.OpenTextFile("d:\\VBS\\testfile.txt",ForReading,True)
a=fso.ReadLine
fso.close
msgbox a
End Sub

我用上面的代码读取txt的第一行内容，那么如果TXT内容是空的则会报错控件无法看到，尚未启用或其类型属于不接受焦点，因此无法将焦点移至该控件。
所以我该怎么判断TXT里是空内容   来排除上述情况？