VBS Dim fso,ts,text
VBS Const ForReading = 1
VBS Set fso = CreateObject("Scripting.FileSystemObject")
VBS Set ts = fso.OpenTextFile("e:\a.txt", ForReading)
Rem a1
VBS test=ts.ReadLine
if test=""
     Goto a2
endif
MessageBox test
VBS SkipLine
Delay 1000
Goto a1
Rem a2
VBS ts.Close
忘了关闭了，抱歉，读完只要把 VBS ts.Close 加在后面就行了！