'Detect files changed since "n" days

DIM Folder,sinceDays

' zu durchsuchender Ordner
FilesinFolder = "X:\Meine\wichtigen\Daten"
# Dateien die seit x Tagen nicht geändert wurden
SinceDays = 7
'----------------------------------------------------
Function FilesModifiedSince (FolderSpec, Days)
  Dim fso, fc, f, d
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set fc = fso.GetFolder(FolderSpec).Files
  Set d = CreateObject("Scripting.Dictionary")

  For Each f in fc
   If DateDiff("d", f.DateLastModified, Now) <= Days Then d.Add f, f.DateLastModified
   'd.add f,f.datelastmodified
   Next
   
  Set fso = Nothing
  Set fc = Nothing
  set FilesModifiedSince = d
End function

'----------------------------------------------------
Dim a, f

Set f  = FilesModifiedSince(FilesinFolder, sinceDays )
a = f.keys
b = f.items

For i = 0 To f.count - 1
  WScript.Echo  a(i) & vbtab & vbtab & b(i)
Next

Set f = Nothing
WScript.Quit(0)