Change Language 
User 
enum RAR_EXIT // RAR exit code.
{
RARX_SUCCESS = 0,
RARX_WARNING = 1,
RARX_FATAL = 2,
RARX_CRC = 3,
RARX_LOCK = 4,
RARX_WRITE = 5,
RARX_OPEN = 6,
RARX_USERERROR = 7,
RARX_MEMORY = 8,
RARX_CREATE = 9,
RARX_NOFILES = 10,
RARX_USERBREAK = 255
}; User 
Semper Fi User 
User is so nen script nicht möglich gekoppelt an FTPRush so dass direkt nach erfolgreichen download entpackt wird und die rars gelöscht werden ? User
@echo off
Echo +++++++++++++++++++++++++++++++++++++++
Echo + Unrarscript by Drag_and_Drop +
Echo +-------------------------------------+
Echo + Have Fun ;-) +
Echo +++++++++++++++++++++++++++++++++++++++
REM Set WinRAR Install Folder as Global path (CHANGE IF NOT STANDARD FOLDER!)
set path="C:\Program Files\WinRAR\";%path%
REM Select all *.rar files and unrar it to the source folder of the.rar
REM unrar switches:
REM x = unrar command
REM -av- = skip CRC check
REM -kb = keep broken files after unrar
REM -o- = skip unrar if file exist
FOR /F "delims=*" %%A IN ('dir /b /s /a-d *.rar') do unrar x -av- -kb -o- "%%A" "%%~dpA"
REM delete all .rar files
FOR /F "delims=*" %%B IN ('dir /b /s /a-d *.r0*') do del /F "%%B"
FOR /F "delims=*" %%B IN ('dir /b /s /a-d *.r1*') do del /F "%%B"
FOR /F "delims=*" %%B IN ('dir /b /s /a-d *.r2*') do del /F "%%B"
FOR /F "delims=*" %%B IN ('dir /b /s /a-d *.r3*') do del /F "%%B"
FOR /F "delims=*" %%B IN ('dir /b /s /a-d *.r4*') do del /F "%%B"
FOR /F "delims=*" %%B IN ('dir /b /s /a-d *.r5*') do del /F "%%B"
FOR /F "delims=*" %%B IN ('dir /b /s /a-d *.r6*') do del /F "%%B"
FOR /F "delims=*" %%B IN ('dir /b /s /a-d *.r7*') do del /F "%%B"
FOR /F "delims=*" %%B IN ('dir /b /s /a-d *.r8*') do del /F "%%B"
FOR /F "delims=*" %%B IN ('dir /b /s /a-d *.r9*') do del /F "%%B"
FOR /F "delims=*" %%B IN ('dir /b /s /a-d *.r1*') do del /F "%%B"
FOR /F "delims=*" %%B IN ('dir /b /s /a-d *.rar') do del /F "%%B"
REM delete all .sfv files
FOR /F "delims=*" %%C IN ('dir /b /s /a-d *.sfv') do del /F "%%C"
User 
vorweg, das Script ist für plain Scene und P2P Release ohne PWs oder doppeltes gepacke konzipiert, den OneClickHoster scheiß mit PWs hab ich nicht getestet, wer will kann das gerne aber mit einbauen und hier posten ;-)
Voraussetzung:
- Installierens WinRAR (Globaler Pfad in der Batch anpassen, wenn nicht ins Standardverzeichnis Installiert)
Script:
@echo off Echo +++++++++++++++++++++++++++++++++++++++ Echo + Unrarscript by Drag_and_Drop + Echo +-------------------------------------+ Echo + Have Fun ;-) + Echo +++++++++++++++++++++++++++++++++++++++ REM Set WinRAR Install Folder as Global path (CHANGE IF NOT STANDARD FOLDER!) set path="C:\Program Files\WinRAR\";%path% REM Select all *.rar files and unrar it to the source folder of the.rar REM unrar switches: REM x = unrar command REM -av- = skip CRC check REM -kb = keep broken files after unrar REM -o- = skip unrar if file exist FOR /F "delims=*" %%A IN ('dir /b /s /a-d *.rar') do unrar x -av- -kb -o- "%%A" "%%~dpA" REM delete all .rar files FOR /F "delims=*" %%B IN ('dir /b /s /a-d *.r*') do del /F "%%B" REM delete all .sfv files FOR /F "delims=*" %%C IN ('dir /b /s /a-d *.sfv') do del /F "%%C"Einfach in den Editor / Notepad kopieren und als.bat abspeichern
(Achtung: Anwendung auf alle Ordner und Unterordner ab dem Aktuellen Verzeichnis, indem die .bat liegt!)
Gerade für umfangreiche Serien und Filmarchive sehr nützlich
Leider bietet unrar keinen error return code, deshalb überspringe ich den CRC Check und behalte defekte Daten auch nach dem Entpacken.
Gab bei Videos bisher nie Probleme damit, auch wenn der CRC fehlgeschlagen ist.
Mein Fileserver ist Windoof, für Linux will ich mich aber auch nochmal in ein paar Wochen dran setzen, aber prinzipiell sollte das auch übertragbar sein, auch wenn man nicht soviel von versteht
Einbinden ins "Senden an" Menü
Am einfachsten ist der Aufruf über das "Senden an" Menüs beim rechtsklick auf eine Datei oder Ordner.
(Achtung: Anwendung auf alle Ordner und Unterordner ab dem Aktuellen Verzeichnis!)
Kopiert die .bat einfach ins folgende Verzeichnis:
C:\Users\%username%\AppData\Roaming\Microsoft\Windows\SendTo
Edited 2 times, last at 3 Feb. 2013 11:34 PM
#