You could do this:

 Code:
Dim $fso, $txt
Dim $Array[5]
$fso = CreateObject("Scripting.FileSystemObject")
$txt = $fso.OpenTextFile("c:\boot.ini",Not 0)

While Not $txt.AtEndOfStream
  $high = UBound($array) + 1
  ReDim Preserve $Array[$high]
  $Array[$high] = $txt.ReadLine
Loop

$txt.Close
For Each $item in $Array
  ? "Line: " + $item
Next


It's the way it is usually done in vbscript, but I think I remember a thread stating that this trick is really slow in Kix.
_________________________
The Code is out there