Automatisering til sletning af IKKE ændrede filer efter 30 dage

Du kunne lave et lille VBScript som gjorde det hele for dig, så skal du bare køre det en gang i mellem - du kunne evt. oprette det som en shduled task...

Her er et som gør det:

On Error Resume Next

Dim File, Folder, FileCollection
Dim fso
Dim strPath

strPath = "C:\Test"

Set fso = CreateObject("Scripting.FileSystemObject")

Set Folder = fso.GetFolder(strPath)
Set FileCollection = Folder.Files

For Each File In FileCollection

    If (DateDiff("d", File.DateLastModified, Now) > 30) OR (DateDiff("d", File.DateLastAccessed, Now) > 30) Then
        fso.DeleteFile (File)
    End If
 
Next

Skal muligvis være et AND istedet for et OR i 5. sidste linje, alt efter om de både skal være uåbnet og uændret eller bare en af delene...