VBA - Nur Unterordner einer best. Größe löschen
17.02.2013 02:29:09
Gerd
Mein Problem:
Ich möchte nur sämtliche Unterordner eines Ordners (z.B "C:\Test") löschen, die kleiner als 1MB sind. Vorher möchte ich noch deren Anzahl ermitteln.
In dem Hauptordner sind u.a. wohl um die 200 solcher Unterordner enthalten, sodaß ich die Löschungen gerne per Makro vornehmen würde.
Bei der Recherche bin ich nicht direkt fündig geworden, bin aber auf den folgenden
Code von Nepumuk gestossen (Antwort v. 4.4.2008 10:03:27), der alle Unterordner eines Ordners löscht:
Sub loesch()
Dim objFolder As Object
For Each objFolder In CreateObject(Class:="Scripting.FileSystemObject").GetFolder("C:\Test") _
.SubFolders
objFolder.Delete
Next
End Sub
Frage: Wie muss der Code ergänzt werden ?
Dieser Bereich von VBA (Umgang mit Dateien und Ordner)ist für mich absolutes Neuland, sodass ich ich das Forum um Hilfe bitten muss.
Schon mal vielen Dank für Eure Bemühungen!
Mfg
Gerd
Anzeige