1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

CleanTemp 5   'Anzahl der Limittage!

Sub CleanTemp(alter)
Set fs = CreateObject("Scripting.FileSystemObject") 
Set temp = fs.GetFolder("l:\")
    
DeleteAll temp, alter
End Sub

Sub DeleteAll(folderobj, alter)
   For each subfolder in folderobj.SubFolders
    DeleteAll subfolder, alter
   Next
   
   For each file in folderobj.Files
    On Error Resume Next
    datum = DateLastModified
    ok = (Err.number = 0)
    On Error Goto 0
    
    If ok Then
         filealter = DateDiff("d", datum, Date)
         If filealter>alter Then
               file.Delete True         

         End If
    End If
   Next
   If folderobj.Files.Count = 0 And folderobj.SubFolders.Count = 0 Then
  folderobj.Delete True
   End If
End Sub