hallo,
ich habe einen Ordner in dem sich nur Unterordner befinden. Diese sind entweder mit Daten (Dateien und / oder gefüllte Ordner) gefüllt oder komplett leer.
Ich würde gerne die leeren Unterordner identifizieren ("finden") und dann löschen. Ordner löschen geht mit "rmDir". Wie kann ich die leeren Ordner finden und löschen?
gefunden habe ich folgendes:
Sub ordner()
Dim fso
Dim objOrdner As Object
Dim pfad as string
pfad="C:\test"
Set fso = CreateObject("Scripting.FileSystemObject")
Set objOrdner = fso.GetFolder(pfad)
If objOrdner.Files.Count = 0 And objOrdner.Subfolders.Count = 0 Then objOrdner.Delete
Set objFolder = Nothing
Set fso = Nothing
End Sub
mich wundert nur dass "rmdir" gar nicht vorkommt sondern nur "objOrdner.delete". Welcher Weg ist besser / einfacher?
Vielen Dank für die Hilfe im voraus!!
Gruß,
Jörg
|