Dim sStartPath
	Set re = new regexp
	MSGBox "Löschvorgang startet"
	sStartPath = "C:\testordner"
	iTimeDiff = 7
	re.Pattern = "[A-Za-z0-9-_\.]+((\.txt)|(\.jpg)|(\.mpg))$"
AllSubFolders(sStartPath)
Function AllSubFolders(ByVal sStartPath)
   Set objFSO = CreateObject("Scripting.FileSystemObject")
   Set objFolder = objFSO.GetFolder(sStartPath)
   Set colSubfolders = objFolder.Subfolders
	DeleteAllFiles sStartPath,iTimeDiff
	For Each objSubfolder In colSubfolders
	AllSubFolders(objSubfolder.Name)
   Next
End Function
Function DeleteAllFiles(ByVal sPath, ByVal timeDiff)
   Set objFSO = CreateObject("Scripting.FileSystemObject")
   Set ordner = objFSO.GetFolder(sPath)
	for each file in ordner.files
	if re.Test(file.path) then
	set f1 = objFSO.GetFile(file.path)
	if (DateDiff("d", Date, f1.DateLastAccessed) > itimeDiff) then
	f1.delete
   end if
end if
next
MSGBox "Löschvorgang ist beendet"
End Function