Leere Ordner finden und löschen....

[Tiro]

Hi Leute,

Wie geht per vbs leere Ordner in einem Verzeichnis finden und löschen?

Gibts da eine einfache Funktion/ einen einfachen Befehl, die/ den ich mir als vbs-Laie anschauen kann?

Danke vorab

T

[Amstelchen]

nicht out-of-the-box, nein - verwende eine rekursive funktion, die alle verzeichnisse durchschreitet, durch GetFolder einen verweis auf das aktuelle verzeichnis liefert. wenn die eigenschaft Files des verzeichnisses nichts liefert, ist das verzeichnis leer und kann mit Delete gelöscht werden.

s'Amstel

[Tiro]

Danke für den Hinweis.

Habe mir da (als Programmier-Pfosten) was zusammengebastelt.

Wenn es die "Nachwelt" mal brauchen sollte, bitte sehr.

T

set fs = CreateObject("Scripting.FileSystemObject")

set ordner = fs.GetFolder("C:\")

unterordner = CountItems(ordner.subfolders)

dateien = CountItems(ordner.files)

function CountItems(object)

for each item in object

item.delete

next

end function