一个删除当前目录下及其子目录中的空文件夹的批处理

namejm

　　删除空文件夹的批处理：

1. 
   
2. @echo off
   
3. :: 思路：列举所有目录(包括子目录)路径，然后，删除第一个路径最后一节上的文件夹；
   
4. :: 　　如果能删除这个文件夹，则删除上一层文件夹；如果还能删除，则继续上一步……
   
5. :: 　　直到当前目录为止；如果其中某一节不能删除，立即跳出，开始删除下一条路径中
   
6. :: 　　最后一节上的文件夹……如此反复。
   
7. ::
   
8. :: code by JM 2006-12-25 bbs.cn-dos.net CMD@XP
   
9. 
   
10. for /f "delims=" %%i in ('dir /ad /b /s') do call :rd_dir_empty "%%i"
    
11. goto :eof
    
12. 
    
13. 
    
14. rem ======= 删除空目录 =========
    
15. :rd_dir_empty
    
16. rd %1 2>nul||goto :eof
    
17. set dir_route=%1
    
18. for /f "delims=" %%i in (%dir_route%) do (
    
19.     set dir_route="%%~dpi"
    
20.     for /f "delims=" %%j in ('dir /ad /b "%%~dpi"')do rd "%%~dpi%%j" 2>nul||goto :eof
    
21. )
    
22. :: 把路径最后的\去掉，以便set route_deepest="%%~dpi"能取到上一层路径
    
23. if "%dir_route:~-2,1%"=="" set dir_route="%dir_route:~1,-2%"
    
24. if /i not "%cd%"==%dir_route% call :rd_dir_empty %dir_route%
    
25. goto :eof
    

复制代码

namejm

　　确实不错，我把简单的事情搞复杂了。