vbs to line count a text file

[sumgirl]

Can anyone tell me how (or point me to how) count the number of lines in a text file?

 

[tsuji]

Hello again,

This may turn really urgly, no esthetic, plain mondaine.

for i=0 to ubound(acontents)-1
    ofile.writeline acontents(i)
next
ofile.write acontents(ubound(acontents))
'continue here

- tsuji

 

[Phreeneazie]

In the meanwhile, I spoke to a friend who suggested:

if acontents(ubound(acontents)) = "" then
redim preserve acontents(ubound(acontents) - 1)
end if

and that seems to work ok - only that's working on any empty lines within the data I think?

Will try your solution ;-)