VBS Script: Dateien älter als x Tage löschen

Hallo zusammen,

ich habe eine Frage. Ich bin auf der Suche nach ein Script das Dateien älter als x Tage löscht, das ist natürlich schon mindesten 100 male behandelt und beschrieben worden. Ich suche aber eins das die Angabe der Tage variabel aus den Dateien Namen liest, ist das möglich?
Beispiel:

Testdokumnet-3-.pdf
dieses Dokument würde durch das Script nach 3 Tagen gelöscht

Testdokument-5-.pdf
dieses Dokument würde durch das Script nach 5 Tagen gelöscht

Gruß
Frank

FOLDER = "C:\PDF"  
set fso = CreateObject("Scripting.FilesystemObject"  
set regex = CreateObject("vbscript.regexp")  
regex.pattern = "-(\d+)-$"  
for each file in fso.GetFolder(FOLDER).Files
 set match = regex.Execute(fso.GetBasename(file.Name))
 if match.count > 0 then
   intDays = CInt(match(0).submatches(0))
   if DateAdd("d",intDays,file.DateCreated) < Now() then  
      file.Delete
   End if
 End if 
Next