WSH - Dateien umbennnen

Hallo zusammen,

ich bin absoluter Neuling in Sachen WSH und benötige eure Hilfe bei einem Script, welches Dateien umbenennt.

Hier das Beispiel:

Original-Name:

011_ASPRs 17Jan2018 <<--- zwischen dem ASPRs und dem Datum ist in der Dateibezeichnung immer eine Leertaste...
012_ASPRs 18Jan2018
...

so soll das Ergebnis sein:

17-01-18
18-01-18
...

Ich habe für jedes Jahr eben knapp 300 solcher Dateien und denke mal, dass das eine Aufgabe für WSH ist un d
nicht für mich mit dem Adler-Suchsystem auf der Tastatur....


Sonnige Grüße aus Hagen

Peter

PS: falls diese Frage unter "Windows Tools" nicht richtig sein sollte, bitte verschieben - Danke!

Const FOLDER = "D:\Ordner"  
Set fso = CreateObject("Scripting.Filesystemobject")  
Set regex = CreateObject("vbscript.regexp")  
regex.IgnoreCase = True
regex.Pattern = "(\d{2})([a-z]{3})(\d{4})$"  

For Each fldr In fso.GetFolder(FOLDER).SubFolders
	Set match = regex.Execute(fldr.Name)
	If match.count > 0 Then
		d = CDate(match(0).submatches(0) & " " & match(0).submatches(1) & " " & match(0).submatches(2))  
		strDate = Right("0" & Day(d),2) & "-" & Right( "0" & Month(d),2) & "-" & Year(d)  
		fldr.Move fso.BuildPath(FOLDER,strDate)
	End If
Next
MsgBox "Finished."