@echo off
SETLocal EnableDelayedExpansion

REM set DEST_FOLDER to a drive other than source drive
REM to speed up the process
REM fedault DEST_FOLDER is current folder
DEST_FOLDER=Y:\QUICKPAR

REM set posting article size in number of lines
REM match with the setting in poewerpost
SET PS=4500

REM set volume size (VS), VM is volume multiflier
SET VM=80
SET /A VS=%VM%*%PS%*128/1000

REM set PAR2 block size (BS) in bytes
REM formular: BS=number_of_line_per_posting_part*128*n
REM default number_of_line_per_posting_part=4500 lines
REM default n=2
SET /A BS=2*%PS%*128

REM set redundancy %
REM default 5%
SET RD=5

IF "!DEST_FOLDER!"=="" (
	SET DEST_FOLDER=%CD%
)

IF NOT EXIST "!DEST_FOLDER!" (
	ECHO.
	ECHO ERROR ERROR ERROR
	ECHO Destination folder "!DEST_FOLDER!" does not exist
	ECHO Script Aborted!
	GOTO :EOF
) ELSE (
	ECHO.
	ECHO Destination folder is "!DEST_FOLDER!"
	ECHO.
)

FOR %%J IN (*) DO (
	SET name=%%J
	SET name=!name: =?!
	ECHO !name!
	IF NOT "!name!"=="zipthenpar.bat" (
		ECHO.
		ECHO ,=====================
		ECHO zipping file "%%J"
		ECHO `=====================
		ECHO.
		CALL :ZIP !name!
	)
)

FOR /D %%I IN (*) DO (
	SET name=%%I
	SET name=!name: =?!
	ECHO !name!
	IF NOT "!name!"=="zipthenpar" (
		ECHO.
		ECHO ,=====================
		ECHO I zipping folder "%%I"
		ECHO `=====================
		ECHO.
		CALL :ZIP !name!
	)
)

PAUSE
GOTO :EOF

:ZIP
SET zipfile=%1
SET zipfile=!zipfile:?= !
REM zipthenpar\7z.exe a -t7z "!DEST_FOLDER!\%zipfile%".7z -r "%zipfile%" -v%VS% -mx0
zipthenpar\rar a -m0 -r -v%VS% "!DEST_FOLDER!\%zipfile%" "%zipfile%"
zipthenpar\par2 c -s%BS% -r%RD% -l "!DEST_FOLDER!\%zipfile%" "!DEST_FOLDER!\%zipfile%"*.rar