[VBS] Ordner grösse auslesen

[CJaay]

Hallo zusammen ich hab ein kleines Script gebastelt das Dateien Die älter als 5 Tage in dem Ordner C:\Test gelöscht werden. Nun das klappt eigentlich prima aber jetzt will ich noch sämmtliche leeren Ordner löschen aber das krieg ich nicht hin. Ich habe mir gedacht das man die Ordner grösse auslesen könnte und alle ordner die kleiner als 1Byte sind werden gelöscht!

da mein aktueller code

' ftp_cleaner.vbs
' Löschen älterer Datein sowie leere verzeichnisse
' Autor: Christian Jäggi 
' Für ESA 

' ===============================
Tage    = 5
heute = date()
' ===============================

' Aufruf der Routine
' Konstanten definieren
Const VerzeichnisBezeichner="c:\test"
dim toOut
toOut = VerzeichnisBezeichner +"  es werden folgende Daten gelöscht: " + chr(13)
ListeVerzeichnisseRek VerzeichnisBezeichner
Wscript.echo toOut

Sub ListeVerzeichnisseRek(Verzeichnisname)
' Deklaration der Variablen
Dim FSO, Verzeichnis, UnterVerzeichnis, Datei
'Objekt erzeugen
Set FSO = CreateObject("Scripting.FileSystemObject")
' Wenn das Verzeichnis existiert
if FSO.FolderExists(Verzeichnisname) then
  ' Wenn das Verzeichnis existiert
  Set Verzeichnis = FSO.GetFolder(Verzeichnisname)
  for each Datei in Verzeichnis.Files
  'Alle Unterverzeichnisse auflisten
   ' Wscript.echo Datei.Name
  
  
'Dateien löschen
  If datei.DateLastModified < (heute -Tage) Then
 toOut = toOut + + "     <File> " + Datei.Name +chr(13)
    datei.Delete
  End If
'Dateien löschen Ende

next 

  for each UnterVerzeichnis in Verzeichnis.subfolders
    ' Wscript.echo UnterVerzeichnis.Name
     toOut = toOut + "   <Dir> " + UnterVerzeichnis.Name +chr(13)
    ' Erneuter Aufruf mit dem Unterverzeichnis
    ListeVerzeichnisseRek UnterVerzeichnis
  next
end if
End Sub

könnt ihr mir villeicht helfen?

 

[CJaay]

hmm eigentlich bräuchte ich ja nur ein script das alle leeren ordner in dem verzeichnis löscht, das wird wohl keine hexerei sein oder? leider hab ich keine ahnung wie das geht da ich seit 1 1/2 jahren kein VBS mehr mache, und ich nun das script verbessern sollte.

wäre um hilfe echt dankbar, brauche es dringend morgen