Número de líneas de archivi de texto

Monica Arias
22 de Abril del 2004
Hola a todos. Tengo el siguiente problemilla, y es que necesita saber el nº total de líneas de un archivo de texto antes de operar con el, pero el problema es que es bastante grande por lo que no puede meterle un contador que me lea todas las líneas antes..... Gracias a todos

Cristian
22 de Abril del 2004
Hola
Tal vez si intentas con esto
Colocalo en un comman o donde lo nesecites

Dim Numero as integer
Dim Registro as string
Open "C:TuArchivo.txt"for append as 1
While not eof(1)
Line Input #1,Registro
If Registro<>""then Contador=Contador+1
Wend
Msgbox "Tienes "& Contador & " Registros"

Espero te sirva
Chao