-langa-
Goto Top

Batch zum entfernen von leeren Ordnern mit Unterverzeichnisse aus einem bestimmten Pfad

Hallo miteinander

Ich habe bereits eine "fast" Lösung für mein Problem gefunden. Da ich mich aber mit VB Scripten in Batchdateien nicht auskenne, komme ich so nicht weiter. face-sad

Ich möchte das folgende Script soweit erweitern, dass ich vorher sagen kann, welches Stammverzeichnis überprüft werden soll. Z.B. C:\Temp

@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%

Das Script arbeitet sonst tadellos und löscht auch fleißig alle leeren Ordner.

Kann mir dort jemand weiterhelfen und das Script um die fehlenden Zeilen ergänzen?

Vielen Dank im voraus!

-LangA-

Content-Key: 92312

Url: https://administrator.de/contentid/92312

Printed on: April 20, 2024 at 03:04 o'clock

Member: Biber
Biber Jul 17, 2008 at 16:24:32 (UTC)
Goto Top
Moin -LangA-,

willkommen im Forum.

Im Moment werden alle leeren Unterordner gelöscht, die unterhalb des Speicher/Lagerortes der Batchdatei eigentlich neimand stören.

Das regelt diese Zeile:
...
cscript //nologo %D% "%~dp0"   
Dort steht (nur) drin, dass der generierte VBS-Schnipsel mit dem Parameter "%~dp0" aufgerufen werden soll. Und "%~dp0" heißt nur "Drive/Path der getarteten Batchdatei".

Die einfachste Alternative wäre wohl, wenn..
  • wenn die Batchdatei mit einem Parameter aufgerufen wird, dann "lösche unterhab dieses Parameters" %1
  • wenn ohne Parameter aufgerufen, dann Verhalten wir bisher... unterhalb des Batchdatei-Verzeichnisses.

Änderung:
...
If "%~1" =="" cscript //nologo %D% "%~dp0"  
If "%~1" NEQ "" cscript //nologo %D% "%~1"  
...

Grüße
Biber
Member: -LangA-
-LangA- Jul 18, 2008 at 06:52:51 (UTC)
Goto Top
Vielen Dank! Da hätte ich auch selbst drauf kommen können. face-wink

Grüße
-LangA-