vb编程之判断一个记事本文件是否为空的代码

vb编程之判断一个记事本文件是否为空的代码

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