读取空白文本文件时出现错误？

使用VB6

当我读取空白文本文件时，将错误显示为输入超出文件结尾

Code.

Dim fso As FileSystemObject
Dim TS As TextStream
Dim TempS As String
Dim Final As String
Set fso = New FileSystemObject
Set TS = fso.OpenTextFile(txtSourceDatabaseFile & "\" & FileName, ForReading)
Final = TS.ReadAll
Do Until TS.AtEndOfStream
    TempS = TS.ReadLine
    Final = Final & TempS & vbCrLf
Loop
TS.Close

如何检查文本文件是否为空？如果为空则不需要读取内容，否则应该读取内容。

需要 VB6 代码帮助

你正在这样做：

Final = TS.ReadAll
Do Until TS.AtEndOfStream
    TempS = TS.ReadLine
    Final = Final & TempS & vbCrLf
Loop

您应该在调用 ReadAll 之前检查 AtEndOfStream，如下所示：

If TS.AtEndOfStream Then
   Final = ""
Else
    Final = TS.ReadAll
    Do Until TS.AtEndOfStream
        TempS = TS.ReadLine
        Final = Final & TempS & vbCrLf
    Loop
End If

但请注意，其中存在逻辑错误：ReadAll 会将整个文件读入内存。因此随后调用 ReadLine 将不会返回任何内容。使用 ReadAll 并通过字符串操作解析输入，或者专门调用 ReadLine。两者都不要使用。