Textdatei bis EOF einlesen
11.10.2003 15:19:03
alex
Meine Idee war ungefähr so...
dim i as integer
dim f,fs
set fs = CreateObject("Scripting.FileSystemObject")
set f = fs.OpenTextFile
for i = 1 to 10 '(überspring die ersten 10 Zeilen)
f.skipline
next i
do until (f.readline = fehler(62)) 'genau hier happerts leider.
f.readline
i=(i+1)
loop
gruß alex