[其他] BAT批量解压分卷压缩文件之后如何将多个分卷压缩全部删除？

@echo off
chcp 65001
set rar="C:\Program Files\WinRAR\WinRAR.exe"
for /f "delims=" %%a in ('dir  /a-d /s /b *.rar') do %rar%  x -y  "%%a" "%%~dpa" && del  "%%a"
pause
复制代码

&& del  "%%a"
复制代码

@echo off
chcp 65001
set rar="C:\Program Files\WinRAR\WinRAR.exe"
for /f "delims=" %%a in ('dir  /a-d /s /b *.rar') do %rar%  x -y  "%%a" "%%~dpa" && set #"%%a"=1
for /f tokens^=2delims^=^" %%a in ('set #') do del "%%a"
pause
复制代码

@echo off
chcp 65001
set rar="C:\Program Files\WinRAR\WinRAR.exe"
for /f "delims=" %%a in ('dir  /a-d /s /b *.rar') do (
	echo %rar%  x -y  "%%a" "%%~dpa"
	%rar%  x -y  "%%a" "%%~dpa" && (
		set #"%%a"=1
		echo set #"%%a"=1
	)
)
for /f tokens^=2delims^=^" %%a in ('set #') do echo del "%%a"
pause
复制代码

@echo off
rem 批处理保存为ansi编码格式，仅测试rar.exe。
rem 解压当前目录及子目录中的rar、zip文件(包括分卷)，解压后删除源文件
rem 兼容含特殊字符密码 (参考:http://www.bathome.net/redirect.php?goto=findpost&ptid=66456&pid=270314)
del log.txt 2>nul
for /f "delims=" %%i in ('dir /b /s /a-d *.rar *.zip ^|sort') do (
	for /f "useback skip=27 delims=" %%a in ("%~f0") do (
		if exist "%%i" (
			set "file=%%i"
			set "pwd=%%a"
			setlocal enabledelayedexpansion
			set "pwd=!pwd:"=""!"
			rar x "!file!" -hp"!pwd!"
			if "!errorlevel!" equ "0" (
				del "!file!"
			) else if "!errorlevel!" equ "6" (
				del "!file!"
			)
			endlocal
		)
	)
	if exist "%%i" (
		>>log.txt echo %%i
	)
)
pause & exit
rem 以下存放密码
2
123
复制代码