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

[Stefan Falz]

nach meinen erkenntnissen kann man kein leeres txt file auslesen, denn kaum steht ein zeichen drin, funktioniert das ganze einwandfei...

Hallo Klaus,

ich habe das jetzt ein paarmal mit verschiedenen Methode probiert.
Du hast recht, es geht nicht. Was Du aber machen kannst, ist auf
die Größe der Datei abzufragen.

<%
Set objFileSys = Server.CreateObject("Scripting.FileSystemObject")
    If objFileSys.FileExists(Server.MapPath("aa.txt")) Then
        Set objFile = objFileSys.GetFile(Server.MapPath("aa.txt"))
        If objFile.Size > 0 Then
            Set objFileContent = objFile.OpenAsTextStream(1)
                Response.Write objFileContent.ReadLine
            Set objFileContent = Nothing
        End if
        objFile.Close
    Set objFile = Nothing
    Else
        Set objFile = objFileSys.CreateTextFile(Server.MapPath("aa.txt"), False)
End if
Set objFileSys = Nothing
%>

Dieses Skript frage zuerst ab, ob die Datei existiert. Wenn nicht, wird sie erstellt. Wenn sie existiert und die Dateigröße > 0 (Byte)
ist, wird der Inhalt gelesen. Das beseitigt zumindest die Fehler.

Tschau, Stefan