ich möchte wenn ein Datum erreicht ist einen Ordner mit Inhalt löschen.
Habe es mit folgendem Cod versucht, löscht aber nur die Dateien die in dem Ordner sind.
Kann mir eine/er bei meinem Problem helfen
Hier ist mein Code
If Date > CDate("08.02.07") Then
With Application.FileSearch
.LookIn = "C:\Dokumente und Einstellungen\Desktop\Test1"
.Filename = "*.*"
.Execute
For intIndex = 1 To .FoundFiles.Count
Set myFObjekt = myFsyObjekt.GetFile(.FoundFiles(intIndex))
If myFObjekt.Attributes And 1 Then myFObjekt.Attributes =
myFObjekt.Attributes - 1
Next
End With
ChDir "C:\Dokumente und Einstellungen\Desktop\Test1"
Kill "*.*"
Application.Quit
End If
Danke
Holger