Batch zum loeschen leerer Ordner

Hallo Zusammen,

habe vom netten Bastla einen Batch Code gefunden. Diese soll aber nur dann leere Ordner und Unterodner löschen, wenn sich in keinem der Ordner eine Datei befindet.

Also:

Basisordner 1
Unterordner 1
Unterordner 2 --> Ordner 1 wird komplett gelöscht, da auch keine Datei in den Unterordnern ist
Unterordner 3

Basisordner 2
Unterordner 1
(Datei vorhanden)
Unterordner 2
(Keine Datei vorhanden) --> Ordner 2 und deren Unterordner (auch wenn einige leer sind) werden "nicht" gelöscht, da in
einem der Unterordner eine Datei vorhanden ist
Unterordner 3
(Keine Datei vorhanden)

Basisordner 3
Unterordner 1
Unterordner 2 --> Ordner 3 wird komplett gelöscht, da auch keine Datei in den Unterordnern ist
Unterordner 3
usw.

Die Ordner haben die gleiche Struktur.

Anbei der Code von Bastla, der etwas modifiziert werden müsste.

@echo off & setlocal
set D=%temp%\DelEmptyFolders.vbs
echo DeleteEmptyFolders(CreateObject("Scripting.FileSystemObject").GetFolder(WScript.Arguments(0)))>%D%
echo Sub DeleteEmptyFolders(Ordner):For Each Unter In Ordner.SubFolders:DeleteEmptyFolders(Unter)>>%D%
echo If (Unter.SubFolders.Count+Unter.Files.Count)=0 Then:Unter.Delete:End If:Next:End Sub>>%D%
cscript //nologo %D% "%~dp0"
del %D%

Ich hoffe ihr könnt mir helfen.

Gruß
fresh-m

@echo off
setlocal
set "Wurzel=D:\"  
 rem "Ordner\Unterordner\UnterUnterOrdner" entspricht UnterUnterOrdner=3  
set /a loescheAbBasisInTiefe = 3

set /a end = loescheAbBasisInTiefe
pushD "%Wurzel%"  
:Sub
if %loescheAbBasisInTiefe% gtr 0 for /d %%i in (*) do (set /a loescheAbBasisInTiefe-=1
  pushD "%%~i"  
  set "Del="  
  call :sub
  popD
  if defined Del @echo rd /s /q "%%~i"  
  set /a loescheAbBasisInTiefe+=1
)

if %loescheAbBasisInTiefe% equ %end% popD
if %loescheAbBasisInTiefe% gtr 0 exit /b
dir /s /b /a-d |find /v "" <nul || set "Del=1"  
exit /b

for /d %i in ("D:\*") do @dir /s/b/a-d "%i">nul 2>nul||echo rd /s /q "%i"  

for /d %%i in ("E:\Bilder\*") do dir /s/b/a-d "%%i\*.jpg" || rd /s /q "%%i"