unterordner packen

Hallo zusammen,

bitte, ich möchte gerne via "HKEY_CLASSES_ROOT\directory\shell\" einen neuen Eintrag erstellen der folgendes bewirken soll:

Ich habe viele Verzeichnisse mit noch mehr Unterverzeichnissen die aber allesamt durch das Entpacken einer Datei im gleichen Ordner entstanden sind.
Ich möchte - praktisch um aufzuräumen - jetzt alle Unterverzeichnisse wieder packen und anschliessend löschen. Gut wäre noch eine Sicherheitsabfrage ob die evtl. noch vorhanden Datei mit dem gleichen Namen wie der entpackte Ordner denn überschrieben werdne soll. Ach so, ja: die entpackten Unterordner haben freilich den gleichen Namen wie die zu entpackenden Dateien.

Wenn mir da jemand auf die Sprünge helfen könnte - auf denjenigen trinke ich ein Bier

Prost


Olly

@echo off
setlocal
Pushd "C:\BAsisverzeichns"  
for /F "delims=" %%A in ('DIr /b /AD "') do echo %%A  
::und soweiter
Popd

@echo off&setlocal
set "RAR_Folder=%~nx1"  
set "RAR_Name=%~nx1.rar"  
set "Base_Folder=%~dp1"  
Pushd "%Base_Folder%"  
If not Exist "%RAR_Name%" goto :Antwort_U  
:nochmal
echo Das Archiv "%Base_Folder%%RAR_Name%" existiert bereits/noch [L]öschen,[U]pdaten,[A]bbrechen  
set /P Antwort=L/U/A :
for %%A in (L U A) Do If /i "%%A"="%Antwort:~,1%" goto :Antwort_%%A  
echo Bööp, falsche Antwort
goto :nochmal
:Antwort_A
Exit /B 1
:Antwort_L
DEL /Q "%RAR_Name%" >NUL  
:Antwort_U
:: hier bau deinen Rar Befehl ein