Or you use the arraylist...
 Code:
Break On Cls

Dim $fso, $txt

$Array = CreateObject("System.Collections.ArrayList")

$fso = CreateObject("Scripting.FileSystemObject")
$txt = $fso.OpenTextFile("c:\boot.ini",Not 0)

While Not $txt.AtEndOfStream
  $Array.Add $txt.ReadLine + @CrLf
Loop

$txt.Close
For Each $item in $Array
  ? "Line: " + $item
Next
_________________________
The Code is out there