Visual Basic - Numero Lineas en Archivo TXT

quisiera saber cuantas lineas tiene un txt para poder poner en
una barra de progreso el maximo

gracias

se me ocurre esto.

lo abres
lees linea x linea y vas incrementando un contador
y lo cierras

el contador tendra el numero de lineas

Ahiiiiiiiii, hay q ser mas especificos!!, 17 años tengo, pero que bien aprovechados!!

Private Function n_lineas(path_del_archivo) as long
open path_del_archivo for binary as #1
dim i as long
dim a as string * 1
n_lineas=1
do
get #1,i,a
if asc(a)=13 then n_lineas=n_lineas+1
i=i+1
loop until asc(a)=0
end function

luego, desde cualquier procedimiento llama a la funcion asi

msgbox n_lineas("c:\carpeta1\archivo1.dat")

si te falla me llamas ok?

ya que solo es un texto simple, no es necesario abrirlo de modo binario, ya que abriendolo en modo de texto simple agarrara linea por linea, de esta forma no necesitas verificar por los caracteres #13#10 (vbcrlf)

Gracias por las respuestas pero la verdad lo que no queria era recorrer el archivo pero si es la unica forma asi sera.

gracias por su ayuda