哪位高手能帮小弟我写批量计算每个文件中有几行呢

谁能帮我写批量计算每个文件中有几行呢

Open CommonDialog1.File For Input As #1
I = 0
Do Until EOF(1)
Line Input #1, Strs
I = I + 1
Loop
Close #1
MsgBox "站数是:" & I - 3



这段代码只能计算一个文件有几行
我想把已经在(filelistbox)文件列表中的文件全部都计算出来要怎么写呢
Open Replace(File1.Path & "\" & File1.List(I), "\\", "\") For Input As #1


------解决方案--------------------
外面再加一层循环啊
------解决方案--------------------
回LS：

　　Open File1.Path & "\" & File1.List(I) For Input As #fn
　　当 File1.Path 为根目录时，你这句会出错的！


=======================================================

回楼主：

　　你在2楼的代码，似乎没有什么错误呀！

　　如果有错误的话，最大的可能性是：G出现溢出！

　　要是你在运行时真的有什么错误，你不妨把具体的错误是什么、执行哪句时出错说一下，这样别人给你纠正起来就很容易。