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

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
    

复制代码

xypcmac

大批量操作时：省时省力

老毛桃

DOS 联盟斑竹的确不一般，学习了！

bagpipe

namejm兄，我觉得以下代码似乎也可以解决删除一个目录及子目录下的空目录的..........

1. 
   
2. for /f "tokens=*" %a in ('dir /b /ad /s 目录路径^|sort /r') do rd "%a" /q 2>nul
   

复制代码

namejm

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

sddylyd

学习了

13083404404

原帖由 bagpipe 于 2006-12-29 03:28 PM 发表
namejm兄，我觉得以下代码似乎也可以解决删除一个目录及子目录下的空目录的..........

for /f "tokens=*" %a in ('dir /b /ad /s 目录路径^|sort /r') do rd "%a" /q 2>nul

强烈支持!!!!!!!!!

shrkog

谢LZ,收藏学习.

SunTB

又见DOS高手

原来DOS联盟的斑主也来作客

hpebble

原帖由 bagpipe 于 2006-12-29 03:28 PM 发表
namejm兄，我觉得以下代码似乎也可以解决删除一个目录及子目录下的空目录的..........

for /f "tokens=*" %a in ('dir /b /ad /s 目录路径^|sort /r') do rd "%a" /q 2>nul

高手们能否给我们菜鸟解释一下这句呢？

willsion

原帖由 bagpipe 于 2006-12-29 03:28 PM 发表
namejm兄，我觉得以下代码似乎也可以解决删除一个目录及子目录下的空目录的..........

for /f "tokens=*" %a in ('dir /b /ad /s 目录路径^|sort /r') do rd "%a" /q 2>nul

高手。

netwinxp

原帖由 bagpipe 于 2006-12-29 15:28 发表
namejm兄，我觉得以下代码似乎也可以解决删除一个目录及子目录下的空目录的..........

for /f "tokens=*" %a in ('dir /b /ad /s 目录路径^|sort /r') do rd "%a" /q 2>nul

这个好，简洁有力:victory:

lotus516

本贴已删除!

[ 本帖最后由 lotus516 于 2007-8-28 06:14 PM 编辑 ]

lixindiyer

小弟还看不明白。。但是收了。。以后搞懂了，在研究。。

lzys

强，前一阵儿刚才DOS联盟看到，没想到这里也有，支持一下．．．

lzymbz

好像用不了啊

for /f "tokens=*" %a in ('dir /b /ad /s F:\Program Files\hygl\PIC\^|sort /r') do rd "%a" /q 2>nul


for /f "tokens=*" %a in ('dir /b /ad /s F:\Program Files\hygl\PIC^|sort /r') do rd "%a" /q 2>nul


这样两个都试了

chp_phoenix

感谢
今天刚好用得到了
呵呵