werfe mich bald vor die merklin......

[Frank Förster]

Gruß Leute...

den Fehler hatte ich auch einige Zeit.

vor dem Readline muß noch was stehen, sekunde...

Dim fs, a, retstring
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.OpenTextFile("c:\testfile.txt", ForReading, False)
Do While a.AtEndOfStream <> True
    retstring = a.Readline
    ...
Loop
a.Close

=================================================

Genau, so sollte es gehen

Viel Glück

Frank