Script som checker alle filer in en foler

sub ChkDelFolder(f)
    set files = f.Files
        for each folder in f.Subfolders
            ChkDelFolder(folder)
        next
    for each f in files
      if datediff("d",f.DateLastModified,now())>60 then
        f.delete
      end if
    next
end sub
   
    startFoldER="C:\test1"
    dim folder,folderCol
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    set folder = objFSO.getFolder(startfolder)
    ChkDelFolder(folder)
    set folder = nothing
    set objFSO = nothing

Ok det virker - svar !

svar. Bemærk den undersøger også evt. undermapper