''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Script        : Verzeichnis in einer HTML-Datei ausgeben                     '
' File          : 04_01_CreateTextFile.vbs                                     '
' Date          : 2007-02-10 - Last modified: 2007-02-10                       '
'                                                                              '
'               Michael Puff - http://www.michael-puff.de                      '
'                                                                              '
'               Erzeugen einer Textdatei                                       '
'                                                                              '
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

TITLE = "04_01_CreateTextFile.vbs"

Set fso = CreateObject("Scripting.FileSystemObject")
Set fs = fso.CreateTextFile("d:\Test.txt")

fs.WriteLine("VBS ist toll.")

fs.Close

MsgBox "Done", 0, TITLE