Dateizugriff via Script

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

  option explicit

  dim dateipfad
  dim filesysobj
  dim datei
  dim zeile

  'Suche den in Vertec hinterlegten Dateipfad
  dateipfad = Vertec.eval("Property.allInstances"_ ->select
      &"(propertyName = 'GlobalWordTemplatePath')->first.asstring")

  if dateipfad <> "" then
    dateipfad = dateipfad + "\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
  end if

18.09.2006 | 18.09.2006