标题：VBA 问题

1楼

www532412596 发表于：2019/7/23 14:20:15

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里是空内容来排除上述情况？

共2 条记录, 每页显示 10 条, 页签: [1]