[文件操作] 批处理如何列出所有空目录并删除？

@echo off
@rem 保存为ANSI格式
setlocal enabledelayedexpansion
for /f "delims=" %%a in ('dir/b/s/ad^|sort/r') do (
	set "Empty_Folder="
	for /f "delims=" %%b in ('dir/a/b "%%~a"') do set "Empty_Folder=%%~b"
	if "!Empty_Folder!." equ "." rd/q/s "%%~a">nul 2>&1
)
endlocal
popd
复制代码

@echo off
setlocal enabledelayedexpansion
set "OutFile=EmptyFolderList.txt"
type nul > "%OutFile%"
echo 删除空目录：
for /f "delims=" %%a in ('dir /b /ad /s ^ |sort /r') do (
    rd /q "%%a" 2>nul && >>"%OutFile%" echo,%%a
)
echo 空目录删除完成！
pause
复制代码

@echo off
setlocal enabledelayedexpansion
set "OutFile=EmptyFolderList.txt"
type nul > "%OutFile%"
echo 删除空目录：
for /f "delims=" %%a in ('dir /b /ad /s ^ |sort /r') do (
    rd /q "%%a" 2>nul
    if not errorlevel 1 (
        >> "%OutFile%" echo,%%a
    )
)
echo 空目录删除完成！
pause
复制代码

@echo off
(echo,Empty Directory:
for /f "delims=" %%i in ('dir /s /b /ad^|sort /r') do (
    set n=0
    pushd "%%i"
    for /f "delims=" %%j in ('dir /b') do set n=
    popd
    if defined n (
        echo,%%i
        rd "%%i"
    )
))>ED.txt
pause
复制代码

@echo off
(for /f "delims=" %%i in ('dir /s /b /ad^|sort /r') do (
    rd "%%i" 2>nul
    if not exist "%%i" echo,%%i
))>EDList.txt
pause
复制代码