VB6.0 文件日志读取

Private Sub ReadWriteLog()

Dim fsObj As New Scripting.FileSystemObject
Dim fileTextStream As Scripting.TextStream
Dim fileText As String
Dim filePath As String
Dim context As String
Dim flag As Long
Dim totalLen As Long

filePath = "C:\Logfile20160115.txt"

If Not fsObj.FileExists(filePath) Then
    MsgBox "No File Exist"
Exit Sub
End If

Set fileTextStream = fsObj.OpenTextFile(filePath)
 ''fileText = fileTextStream.ReadAll ''read all context

While Not fileTextStream.AtEndOfLine
    context = fileTextStream.ReadLine
    totalLen = Len(context)
    flag = InStrRev(context, ":")
    context = Right$(context, totalLen - flag - 1)
    
    MsgBox "Message value : " & context
Wend

fileTextStream.Close

Set fileTextStream = Nothing
Set fsObj = Nothing

End Sub

同样也可以实现一次全部读取文件内容；