Textfile auslesen

[Bjoern]

Hi

If not txtdatei.atEndOfStream THEN
  komplett = txtdatei.readAll
  zeilenArray = Split(komplett,vbNewLine)
  anzahlZeilen = Ubound(zeilenarray) + 1
  For a = 0 to Ubound(zeilenarray)
    'da ist die einzelzeile :-)
  Next
END IF

das ist ja noch viel besser. da kann ich das array auch später noch verwenden.
danke.

bjoern