VBScript erstellen zum suchen und kopieren eines Dokumentes

Da ich es leider nicht wirklich mit scripting habe, hoffe ich auf eure Hilfe.

Tag erstmal!

Ich versuche seit Tagen ein Script zu erstellen was folgende Aufgabe erfüllt:

In einem Ordner liegen im Schnitt 5-7 PDF Dokumente. Eins dieser Dokumente hat im Name
das Datum von Heute (test 29.08.2012.pdf).

Einmal an Tag möchte ich per Script diesen Ordner durchsuchen lassen und nur diesen Dokument
in ein Archiv Ordner kopieren lassen.

Ich bekomme es nicht hin. Jemand einen Idee oder wenigstens einen Ansatz?


Gruß
cslucifer

Source = "D:\Dein Ordner"  
Target = "D:\Dein Archiv\" 'Backslash am Ende beachten  
Ext = "pdf" 'in Kleinbuchstaben  

Today = Date 'aktuelles Datum im Standard-Format; falls anders benötigt, Zuweisung entsprechend anpassen  

Set fso = CreateObject("Scripting.FileSystemObject")  

For Each File In fso.GetFolder(Source).Files
    If LCase(fso.GetExtensionName(File.Name)) = Ext Then
        If InStr(File.Name, Today) > 0 Then File.Copy Target
    End If
Next