Zeige mir alle Dateien eines Verzeichnisses an, die innerhalb von n Tagen geändert wurden:

listmodifiedFiles.vbs

'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)