Leer línea por línea un archivo txt con VBS
Estoy intentando este código:
filename = "test.txt"
listFile = fso.OpenTextFile(filename).ReadAll
listLines = Split(listFile, vbCrLf)
For Each line In listLines
WScript.Echo line
'My Stuff
Next
O este otro:
filename = "test.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(filename, ForReading)
Do Until f.AtEndOfStream
myLine = f.ReadLine
WScript.Echo myLine
'My Stuff
Loop
¿Por qué en ambos casos hace eco de todas las líneas a la vez y, por supuesto, no puedo trabajar línea por línea? ¿Alguna idea?