删除不同/相同文件夹 批处理

lintrainwy

此方法不生成中间文件，缺点是代码略多，但已封装，使用方便



文件夹列表变量为单行文本，文件名之间以 “/” 为分隔符，形如：文件夹1/文件夹2/文件夹3/


call :dirlist listPre                ——保存 运行前文件夹列表 到变量 listPre
call :dirlist listLater                ——保存 运行后文件夹列表 到变量 listLater

call :delDir false                          ——删除不同文件夹
call :delDir true                          ——删除相同文件夹

运行前文件夹列表变量：%listPre%
运行后文件夹列表变量：%listLater%

1. @ECHO OFF
   
2. setlocal ENABLEDELAYEDEXPANSION
   
3. mode con: cols=65 lines=25
   
4. color 0A
   
5. 
   
6. set "testDir=testDir"
   
7. rd /s /q %testDir% >nul 2>&1
   
8. mkdir %testDir%
   
9. cd /d %testDir%
   
10. mkdir Dir1
    
11. 
    
12. ::开始测试====================
    
13. 
    
14. call :dirlist listPre
    
15. mkdir Dir2
    
16. call :dirlist listLater
    
17. 
    
18. rem 删除不同文件夹，删除相同文件夹使用：call :delDir true
    
19. call :delDir false
    
20. 
    
21. ::结束测试====================
    
22. 
    
23. echo 运行前文件夹：%listPre%
    
24. echo 运行后文件夹：%listLater%
    
25. echo.
    
26. pause
    
27. 
    
28. ::结束批处理
    
29. ::======================
    
30. goto :EOF
    
31. :dirlist
    
32. set listTemp=<nul
    
33. FOR /F "usebackq tokens=* delims=" %%i in (`dir *.*  /B /A:D`) do (
    
34.         set "listTemp=%%i/!listTemp!"
    
35. )
    
36. set "%~1=%listTemp%"
    
37. goto :EOF
    
38. ::======================
    
39. goto :EOF
    
40. :delDir
    
41. set listLaterloop=%listLater%
    
42. :delDir0
    
43. FOR /F "usebackq tokens=1* delims=/" %%i in ( `echo !listLaterloop!` ) do (
    
44.         if defined listLaterloop (
    
45.                 set "i=%%i"
    
46.                 set "j=%%j"
    
47.        
    
48.                 set "listPreloop=%listPre%"
    
49.                 set "found=false"
    
50.                 :delDir1
    
51.                 FOR /F "usebackq tokens=1* delims=/" %%k in ( `echo !listPreloop!` ) do (
    
52.                         if defined listPreloop (
    
53.                                 if !i!==%%k set "found=true"
    
54.                                 set "listPreloop=%%l" &goto :delDir1
    
55.                         )
    
56.                 )
    
57.                 if !found!==%~1 rd /s /q !i! && echo 已删除文件夹：!i!
    
58.                 set "listLaterloop=!j!" &goto :delDir0
    
59.         )
    
60. )
    
61. goto :EOF
    
62. ::======================

复制代码

少马石

支持，最好来个说明。