Verzeichnisse je nach Alter löschen

From: Ziltener Iwan (zii_at_bluewin.ch)
Date: 06/25/04


Date: Fri, 25 Jun 2004 16:42:09 +0200

Hallo

Ich habe ein Script welches alle Unterverzeichnisse eines
Verzeichnisses löschen soll, die älter als 5 Tage sind.
Das Script läuft ohne Fehlermeldung durch, die Verzeichnisse werden
jedoch nicht gelöscht.

Wo liegt das Problem?

---
Option Explicit
Dim objFSO
Dim objFolder
Dim objSubFolder
Dim colSubfolders
Dim objTargetFolder
Dim objTargetSubFolder
Dim colTargetSubfolders
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("G:\Backup")
Set colSubfolders = objFolder.Subfolders
' For each subFolfer in the G:\Backup folder
For Each objSubFolder in colSubfolders
	
	' Go to the sub folders of test folder then for each folder
delete the sub folders older than 5 days 
	Set objTargetFolder = objFSO.GetFolder("G:\Backup\" &
ObjSubFolder.Name)
	Set colTargetSubfolders = objTargetFolder.Subfolders
	
	For Each objTargetSubfolder in colTargetSubfolders
	
    		If DateAdd("d",-5, Now()) <
objTargetSubFolder.DateCreated then 
			ObjTargetSubFolder.Delete True
		End if
	next
Next
' End 
---
Gruss
Iwan