Detail: VBS-Makro - Datei erstellen mittels File System Object

17.05.2009 - VBS-Makro - Datei erstellen mittels File System Object

Hier ein Makro zur Erstellung einer Textdatei, mittels FSO (File System Object). Der Name der erzeugten Textdatei beinhaltet das aktuelle Datum.
Ich setze dies oft für die Fehlersuche und/oder als LOG-Buch ein.

' Heiko Jendreck - personal helpdesk & webdesign
' http://www.phw-jendreck.de
' 2009.05.17
Option Explicit
'*****************************************************
Dim Folderpath, Filename
' Hier bitte den Pfad angeben
Folderpath = "C:\"
' Welchen Namen bekommt unsere Datei
Filename = Folderpath & date & "_log.txt"
'*****************************************************
Dim Line
' An dieser Stelle wird der Inhalt der Datei angegeben
Line = "Hier wird der Inhalt der Datei definiert"
'*****************************************************
Dim IOMode
' An dieser Stelle können Sie bestimmen, ob der Inhalt
' 1 = gelesen wird
' 2 = beschrieben wird
' 8 = angehängt wird
IOMode = 8
'*****************************************************
Dim Create
' An dieser Stelle wird bestimmt, ob eine Datei
' erzeugt werden soll, wenn diese noch nicht existiert
Create = True
'*****************************************************
Dim Format
' An dieser Stelle bestimmen Sie das Format der Datei
' 0 = ASCII (Standardwert)
' 1 = Unicode
Format = 0
'*****************************************************
Dim FSO, TextLog
' Nun bauen wir das Ganze zusammen
Set FSO = CreateObject("Scripting.FileSystemObject")
Set TextLog = FSO.OpenTextFile(FileName, IOMode, Create, Format)
' Und übergeben den Inhalt
TextLog.WriteLine (Line)
'*****************************************************
' Wir verlassen unser Script sauber
TextLog.Close
Set TextLog = nothing
Set FSO = nothing
'*****************************************************


siehe auch:
VB Archiv - Erstellen einer Datei mittels FSO (File System Object)

zurück

Copyright © 2003 - 2011, Heiko Jendreck, All rights reserved
http://www.phw-jendreck.de / Heiko Jendreck; Friedrichstrasse 20; 68782 Brühl