Question

VB 如何判断文本文件是不是空的

我有一个文件夹里有多个文本文件如何判断那几个文件是空的。

Answer 1

Dim FileLength
'// 打开文件
Open "Text1.txt" For Input As #1
'// 取得文件长度
FileLength = LOF(1)
'// 如果长度为 0，那么就是空的咯
If FileLength = 0 Then
    '// 空的
End If
Close #1

Answer 2

假如列出"C:\" 目录中空文本文件名

Private Sub Command1_Click()
Dim file As String
file = Dir("C:\*.txt") '用通配符搜索
Do Until file = ""
    If FileLen("C:\" & file) = 0 Then Debug.Print file
    file = Dir() '接下去忽略参数
Loop
End Sub

Answer 3

用EOF比较好,不要用LEN(filecontent)