blogMyTrash

‘ Mit VBScript Textdatei erzeugen und löschen

datei = “C:\beispiel.txt”

Set objfs = CreateObject(“Scripting.FileSystemObject”)
If Not objfs.FileExists(token) Then
WScript.Echo datei & ” ist nicht vorhanden”
Else
objfs.DeleteFile datei ‘ Mit VBScript Textdatei löschen
WScript.Echo “File gelöscht: ” & datei
End If

Set objfs = CreateObject(“Scripting.FileSystemObject”)
Set objstream = objfs.CreateTextFile(datei) ‘ Mit VBScript Textdatei erzeugen
objstream.WriteLine Now
objstream.close
WScript.Echo “File erzeugt: ” & datei