Contar lineas en un archivo texto plano

[orharo2003]

lo q puedes hacer, y claro consume un tiempo es abrir el archivo como lo haces e ir leyendo linea x linea (readline) y a su vez incrementar un contador.

contador=0

do while (fs.AtEndOfStream <> True)
fs.readline
contador=contador+1
loop

fs.close