Dateilöschung unter VBS?

Löschen von bestimmten Dateitypen per VBS

Hallo,

ich habe hier ein Problem mit einem kleinen VB-Script, was beim Anmelden eines Users durchläuft.
...also bis jetzt funktioniert noch alles!

Ich möchte aber eine Funktion hinzufügen, und habe keine Ahnung von VBS...
Wenn mir das jemand übersetzen könnte, wäre das echt nett...

Also:

Es sollen in einem bestimmten Verzeichniss alle Dateien einer bestimmt Endung gelöscht werden. Ohne Meldung und Bestätigung.

Der Pfadname soll über eine Variable gehen. Diese existiert in dem Script bereits. "Userdir"
Gelöscht werden sollen Dateien mit der Endung *.abc.

So quasi in DOS: "DEL %userdir%\*.abc /q"
(%Userdir% ist die VB Variable, die den kompletten Ordnernamen beinhaltet, z.B. Z:\Ordner\Username\ )


Gruß,
Brandse

'UserDir = "Z:\Ordner\Username\"  
Set fso = CreateObject("Scripting.FileSystemObject")  
Set Ordner = fso.GetFolder(UserDir)
For Each Datei in Ordner.Files
	If Right(Datei.Name, 4) = ".abc" Then Datei.Delete  
Next