文本操作问题，求大虾指教，多谢

Question

我运行下面这段程序后，发现一个问题，AtEndOfLine并不能捕捉到文件结束行。
我的意思是如果一个文本里面有空行，它就认为是TRUE了，
但是我想遍历一个文件的内容，需要一行一行复制，所以有什么办法解决这个空行的问题啊？多谢大虾赐教!Dim oFSO As FileSystemObject
Dim oTextStream As TextStream
Dim str(100) As String
Dim strPath As String
strPath = txtPath.TextSet oFSO = CreateObject("scripting.filesystemobject")Set oTextStream = oFSO.OpenTextFile(strPath, ForReading, False, TristateFalse)
i = 0
Do While (oTextStream.AtEndOfLine <> True)
    str(i) = oTextStream.ReadLine
    i = i + 1
Loop

Answer 1

不会呀，我的里面也有空行，也能读下去呀    Set fso_Set = CreateObject("Scripting.FileSystemObject")
    Set fil_Set = fso_Set.GetFile(App.Path & "\pos.txt")
    Set tmp_TS = fil_Set.OpenAsTextStream(ForReading)
    Do Until tmp_TS.AtEndOfStream
        str_File = tmp_TS.ReadLine
        msg(i) = str_File
        i = i + 1
    Loop
    tmp_TS.Close