如果这个文本文件被读到textbox中就更简单了只需用一个api函数就行了Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
linecount=SendMessage(text.hwnd,EM_GETLINECOUNT,0,ByVal 0&)
text.hwnd 表示textbox的句柄
linecount为结果
这个问题和你头一个问题很相似
Set fs = CreateObject("Scripting.FileSystemObject")
Set txtfile = fs.CreateTextFile("Firing_Sky.txt", True)
i=0
while txtfile.AtEndOfStream=false then
txtfile.skipline
i=i+1
loop
txtfile.Close