VBScript: Delete files older than x days

Dim Fso
Dim Directory
Dim Modified
Dim Files
 
Set Fso = CreateObject("Scripting.FileSystemObject")
Set Directory = Fso.GetFolder("F:\Files")
Set Files = Directory.Files
 
For Each Modified in Files
 
If DateDiff("D", Modified.DateLastModified, Now) > 2 Then Modified.Delete
 
Next