[文件操作] 求助批处理解压文件后去除中间多层文件夹

@echo off
for %%i in (*.rar) do (
    if not exist "%%~ni\" (
        md "%%~ni"
        move "%%i" "%%~ni\"
        pushd "%%~ni"
        "C:\Program Files\WinRAR\rar.exe" e "%%i"
        popd
    )
)
复制代码

@echo off
set "dir=%~1"
if not defined dir set "dir=%~dp0"
call :recurse "%dir%" 0 "%dir%"
pause
exit /b
:recurse
setlocal
pushd %1||goto end
set /a "childlevel=%2+1"
for /f "delims=" %%A in ('"2>nul,dir /ad /b"') do (
	call :recurse "%%A" %childlevel% %3
	rd /q "%%A"||echo "%%~fA"
)
if %2 leq 1 goto out
set "destDir=%~3\%~1"
if exist "%destDir%" (
	for /f "delims=" %%B in ('"2>nul,dir /a-d /b"') do (
		call :rf "%%B" "%destDir%"
	)
) else (
	md "%destDir%"
	move /y * "%destDir%\"
)
:out
popd
:end
endlocal
exit /b
:rf
set "fname=%~n1"
set "fext=%~x1"
set /a "cnt=1"
:loop
if exist "%~2\%fname%%fext%" (
	set "fname=%~n1_%cnt%"
	set /a "cnt+=1"
	goto loop
) else (
	move %1 "%~2\%fname%%fext%"
)
exit /b
复制代码