Hallo Coyote,
Hab für dich einen Beispielscript für eine Recursive Suche auf einen Folder. In dem Beispielscript wird die Größe einer Datei ermittelt. Das Filedatum abzufragen und darauf zu reagieren sollte kein Problem sein.
lg
Reinhard
Function GetDirSize(strFolder,dblSum)
Dim bolIsSub,objFolder,colSubFolders,subFolder,colSubFiles,objFile
set objFolder = objFSO.getfolder(strFolder)
Set colSubFolders = objFolder.subFolders 'Unterverzeichnisse ermitteln und
For Each subFolder In colSubFolders 'durchlaufen
GetDirSize subFolder.parentfolder & "\" & subFolder.name,dblSum ' Recursiver Aufruf
Next
Set colSubFiles = objFolder.Files 'keine Unterverzeichnisse mehr, daher werden jetzt die Dateien im Verzeichnis ermittelt.
dblFolders = dblFolders + 1
For Each objFile In colSubFiles 'Alle Dateien durchlaufen und
dblSum = dblSum + objFile.size ' Dateigröße ermitteln und zusammenzählen
dblFiles = dblFiles + 1
Next
GetDirSize = dblSum 'Summe zurückliefern
end Function