'********************************** '* umbenennen in: * '* * '* VBScriptBeispielDatei.vbs * '* * '* Skript schreibt * '* Text in Datei * '********************************** '**** Variablendeklaration erzwingen *** Option Explicit '**** Variablendeklaration ******* Dim strPfad Dim strText Dim fso Dim oDatei '**** Wertzuweisung ************** strPfad = "C:\datei.txt" strText = "Hallo" '**** Datei öffnen, '**** erstellen, falls es sie noch nicht gibt Set fso = CreateObject("Scripting.FileSystemObject") Set oDatei = fso.OpenTextFile(strPfad, 8, true) '**** Text an Datei anhängen oDatei.WriteLine strText '**** Datei schliessen oDatei.close