试下UHARC,支持右键发送到,自动识别文件数量、类型及是否文件夹、是否根目录,压缩文件名生成规则同WINRAR,直接生成自解压文件,压缩比堪称世界第一!
下面是我写的代码,供交流,有问题请大家完善。
下面是我写的代码,供交流,有问题请大家完善。

@echo off
set file=%temp%\list.lst
del /q/f %file% >nul
set dp=%~dp1
set dd=%dp:~0,1%
set name=%~n1
:loop
if "%~1"=="" goto go
if "%~x1"=="" echo "%~1\*">>%file%&goto lop
echo "%~1">>%file%
:lop
shift
goto loop
:go
for /f "delims=: tokens=1" %%a in ('findstr /N ".*" %file%'
do set Num=%%a
if %Num% EQU 1 goto Fil
set ddp=%dp:~,-1%
for /f "skip=1 delims=:" %%i in ('^(echo "%ddp%"^&echo.^)^|findstr /o ".*"'
do set/a l=%%i-5
if %l% LEQ 3 goto Drv
for /f "delims=" %%i in ("%ddp%"
do set tag=%%~nxi
uharc.exe a -sfx -mx "%dp%%tag%.com" @%file%
goto :eof
rv
uharc.exe a -sfx -mx "%dp%%dd%.com" @%file%
goto :eof
:Fil
uharc.exe a -sfx -mx "%dp%%name%.com" @%file%
