Ordner löschen

Forumthread: Ordner löschen
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Ordner löschen

Ordner löschen

11.02.2007 10:00:10

Holger

Hallo zusammen,
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

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Ordner löschen

11.02.2007 10:11:52

Hubert
Danke Hubert es läuft

11.02.2007 10:35:32

Holger

AW: Ordner löschen

11.02.2007 10:11:52

Hubert

Hi,


Sub til()
Dim objFSO As Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFolder ("C:\Dokumente und Einstellungen\Desktop\Test1")
End Sub

mfg Hubert

Danke Hubert es läuft

11.02.2007 10:35:32

Holger

Danke für deine Hilfe.
es läuft
Gruss Holger