fso mappath

[Thomas]

Hallo Zusammen, ich habe schon mal gepostet aber komme nicht weiter

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

[MelanieK]

Hallo,

Fehler: Datei nicht gefunden:

Das Problem duerfte in folgender Zeile liegen:

Set f=fso.OpenTextFile(Server.MapPath("strTextfile"), 1, False)

^           ^
Die Anfuehrungszeichen muessen weg, da strTextfile ja eine Variable ist.

Gruss,
Melanie

[tom]

^           ^

Die Anfuehrungszeichen muessen weg, da strTextfile ja eine Variable ist.

Hallo Melanie,

danker für die Hilfe, aber daran habe ich auch schon gedacht und die fehlermeldung bleibt jedoch auch wenn ich die " weglasse...

Tom

[MelanieK]

Hi,
hast du mal den Wert von strTextfile ausgeben lassen? Kommt da ein richtiger Dateiname an?
Noch was anderes - am Ende der Funktion musst Du fso=nothing setzen, nicht fs.

Gruss, M.

[tom]

Hi,
hast du mal  von strTextfile ausgeben lassen? Kommt da ein richtiger Dateiname an?
Noch was anderes - am Ende der Funktion musst Du fso=nothing setzen, nicht fs.

Gruss, M.

Wie kann ich den Wert ausgeben?

[MelanieK]

Wie kann ich den Wert ausgeben?

Versuch's mal mit einem

Response.Write "Textfile: " & strTextFile
Response.End

am Anfang der Funktion.

M.

[tom]

Hallo Melanie,

es funktioniert ich hatte den Grundpfad virtuell anfgegeben.

Jetzt habe ich ein weiteres Prob.

Was bedeutet Das Objekt unterstützt diese Eigenschaft oder Methode nicht.: 'oMatch.SubMatches'

Danke Mel, Du bist mein ASP Gott

[MelanieK]

Hi again,

Was bedeutet Das Objekt unterstützt diese Eigenschaft oder Methode nicht.: 'oMatch.SubMatches'

SubMatches ist m.E. eine Collection, d.h. dein Code muss oMatch.SubMatches(0) oder aehnlich aussehen. Tut er das?

Danke Mel, Du bist mein ASP Gott

Wenn schon dann Goettin bitte ;-)

Melanie