mappath

[tom]

Hallo Zusammen,

ich möchte ein script zum laufen bringen.

Win 2000 server
iis 5.0

Bekomme eine Fehlermeldung zu dieser Funktion:

Fehler: Datei nicht gefunden:

------------------------------------------------------------
------------------------------------------------------------
Function readTextFile( strTextfile )
   Const ForReading = 1, ForWriting = 2, ForAppending = 8
  Dim fso, f
    Set fso = Server.CreateObject("Scripting.FileSystemObject") 'Erzeugung FileSystemObject
    Set f=fso.OpenTextFile(Server.MapPath("strTextfile"), 1, False)  'öffnen der Textdatei
    Set f=fso.OpenTextFile(strTextfile, 1, False)  'öffnen der Textdatei
    If f.AtEndOfStream Then
     readTextFile = ""
    Else
    readTextFile = f.ReadAll 'Rückgabe des Zeicheninhaltes der Textdatei
    End If
    f.Close 'Schliesen Textdatei
    'Objekte terminieren
    Set f=Nothing
    Set fs=Nothing
End Function

---------------------------------------------------------------
---------------------------------------------------------------

Bitte helft mir:

Vielen Dank

Wenn Ihr noch mehr Code braucht, einfach Posten....
Tom

[Martin Speiser]

Hi Tom,

Set f=fso.OpenTextFile(Server.MapPath("strTextfile"), 1, False)  'öffnen der Textdatei

das ist der Fehler. Da wird versucht, eine Datei namens strTextfile zu öffnen, statt eine Datei mit dem Namen, der in der Variable strTextfile steht. Mach die Anführungszeichen weg, dann wird's gehen.

Gruß,
Martin

[tom]

Hi Martin, danke für die Hilfe,

Jetzt kommt "Die Datei wurde nicht gefunden" in der besagten Zeile.

tom

[Martin Speiser]

Hi Tom,

Jetzt kommt "Die Datei wurde nicht gefunden" in der besagten Zeile.

lass dir das Resultat von MapPath doch einfach mal ausgeben. Dann findest du sicher den Fehler.

Gruß,
Martin