Variable in Datei schreiben

[Rouven]

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