Dateizugriff via Script

Hier ein Beispiel, wie der Zugriff auf ein externes File funktioniert:

  option explicit

  dim dateipfad
  dim filesysobj
  dim datei
  dim zeile

  dateipfad = "C:\Dokumente\Dateiname.txt"

  'Startet das File
  set FileSysObj = _
    CreateObject("Scripting.FileSystemObject")

  'Die Datei wird zum Lesen (1) geöffnet.
  set Datei = _
    FileSysObj.OpenTextFile(dateipfad, 1, True)
  Zeile = Datei.ReadLine ()
  Datei.close

  'Die Datei wird zum Schreiben (2) geöffnet.
  set Datei = _
    FileSysObj.OpenTextFile(dateipfad, 2, True)
  Datei.WriteLine Zeile
  Datei.Close