Hochrieser Reinhard: Variable in Datei schreiben

Hy Leute,

ich habe vor Email Adressen in einer Datei am Server abzulegen, das schreiben in die Datei funktioniert auch, jedoch erstellt er die Datei immer neu und fügt die Email Adressen nicht am Ende hinzu! Wo kann der Fehler liegen.

<%
 ' FileSystemObject objFs oeffnen
 Set objFs= CreateObject("Scripting.FileSystemObject")

' Dateiname festlegen
 strDateiname = Server.MapPath("/testdatei.txt")

' Einen Textstream (objTextStream) zur Textdatei oeffnen
 Set objTextStream = objFs.CreateTextFile(strDateiname, True)

' Inhalt fuer Datei in String strWriteString speichern:
 strWriteString = "Text fuer die Datei"

' String in Datei schreiben:
 objTextStream.Write strWriteString

' Objekte schliessen
 objTextStream.Close
 Set objTextStream = Nothing
 Set objFs = Nothing
%>

  1. Hi,

    ich will ja nicht patzig klingen, aber was sagt die CREATE??

    ' Einen Textstream (objTextStream) zur Textdatei oeffnen
     Set objTextStream = objFs.CreateTextFile(strDateiname, True)

    Das legt eine neue Textdatei an, mit TRUE hast du weiterhin bestätigt, dass du eventuell bestehende Datei dieses Namens überschreiben willst.
    Richtig müsste es lauten:
    Const ForReading = 1, ForWriting = 2, ForAppending = 8
    if (not objFs.FileExists(strDateiname)) then
      Set objTextStream = objFs.CreateTextFile(strDateiname, true)
    else
      Set objTextStream = objFs.OpenTextFile(strDateiname, ForAppending, true)
    end if

    MfG
    Rouven

    --

    -------------------
    ss:) zu:) ls:& fo:) de:< va:{ ch:? sh:) n4:( rl:? br:$ js:| ie:) fl:(
  2. Moin!

    Hy Leute,

    ich habe vor Email Adressen in einer Datei am Server abzulegen, das schreiben in die Datei funktioniert auch, jedoch erstellt er die Datei immer neu und fügt die Email Adressen nicht am Ende hinzu! Wo kann der Fehler liegen.

    ' String in Datei schreiben:
    objTextStream.Write strWriteString

    Da....

    Du musst den Inhalt der Datei in eine Variable lesen, die neue Adresse ranhängen und dann das alles schreiben. Oder Du benutzt eine der anderen sieben mal sieben Möglichkeiten, die ich nicht kenne, weil ich von ASP keine Ahnung habe. Vielleicht bietet ASP auch eine Möglichkeit des Anhängens von Text oder Du schreibst in neue Datei und hängst diese auf Filesystemebene an (copy...)

    MFFG (Mit freundlich- friedfertigem Grinsen)

    fastix®

    --
    Meinereinerselbst ist auf der Suche nach Aufträgen