菜鸟跪求：如何直接读取文本文件的最后一行的内容？如TXT格式的文件想直接读取最后一行的内容
怎麽读取？

Open "C:\HOPDATA\HOPLIST.TXT" For Input As #FreeNum1

Do Until EOF(FreeNum1)
Line Input #FreeNum1, NewDir1
Loop

Close #FreeNum1
虽然上面一段程序也能读取到文件的最后一行的内容，能不能不用循环就直接读取，否则如果文件
保存了很多内容有很多行，那就要循环很多次，耗费系统资源。

Private Sub Command1_Click()
Dim ss() As String, s As String

Open "d:\123.txt" For Input As #1
s = StrConv(InputB(LOF(1), #1), vbUnicode)
Close #1
ss = Split(s, vbCrLf)

MsgBox ss(UBound(ss))
End Sub

Const ForReading = 1

Private Sub Command1_Click()
Dim objFSO, objFile, strLine As String
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("d:\123.txt", ForReading)

Do Until objFile.AtEndOfStream
strLine = objFile.ReadLine
Loop
objFile.Close
MsgBox strLine
End Sub


看看哪个速度快！