archivos de texto

[lexus]

saludos,

alguien sabe como hacer un ciclo o algun codigo para que me lea linea por linea de un archivo de texto,

se que con readall me lee todo el archivo, pero necesito leer linea por linea

se que con readline se lee una linea,

pero quiero hacer algo asi,

readline
<br>
readline
.
.
.

[cacike500]

Prueba este código, comprueba que tengas permisos para hacerlo.

Dim fs, a, retstring
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.OpenTextFile("archivoprueba.txt", ForReading, False)
Do While a.AtEndOfStream <> True
retstring = a.ReadLine
...
Loop
a.Close