Function RunForFiles(folderspec)
Dim fso, f, f1, fc

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set fc = f.Files
For Each f1 in fc
WScript.Echo (folderspec & f1.name)

If CompareDate(folderspec & f1.name) = True Then
Log(folderspec & f1.name)
'DelFile(folderspec & f1.name)
End If
Next
End Function