'Windows Scripting Host Beispiel, 15. April 2016
'Erstellen und Loeschen eines Ordners ohne Abfrage
Option Explicit
Dim Pfad, OrdnerAnzeigen
Dim fso, fo
'Create folder in
Pfad = "E:\TEMP\Beispiel"
'FileSystemObject erzeugen fuer Zugriff
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
'Create the folder
Set fo = fso.CreateFolder(Pfad)
'Show folder
OrdnerAnzeigen = fso.GetParentFolderName(Pfad)
Set fo = fso.GetFolder(OrdnerAnzeigen)
'Wait 5 sec.
WScript.Sleep 5000
'Delete folder without warning
fso.DeleteFolder(Pfad)
WScript.Quit
'***Ende