Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
844to848
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
844to848
844to848
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Ordner löschen

Ordner löschen
11.02.2007 09: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
Anzeige
AW: Ordner löschen
11.02.2007 09: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 09:35:32
Holger
Danke für deine Hilfe.
es läuft
Gruss Holger
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige