请问VB中如何判断文件是否为空！

Question

有个Txt文本，如何判断此文本是不是空值，空格也是空值，有朋友用FileLen这个函数，此函数把空格也算长度的，有没有更好的方法呢？望朋友给出解答！

Answer 1

Private Sub Command1_Click()
  Open "c:\1.txt" For Input As #1
  Dim istr As String
  istr = StrConv(InputB(LOF(1), 1), vbUnicode)
  Close #1
  istr = Trim(istr)
  If istr = "" Then
     MsgBox "文件是空"
  Else
     MsgBox "文件非空"
  End If
  
End Sub

Answer 2

晕,空格只要调用TRIM函数清除一下就可以啦