[分享]批处理删除电脑重复文件 供交流学习

rs369007

1. @echo off&setlocal ENABLEDELAYEDEXPANSION
   
2. 
   
3. title 清理相同的文件-code by rs369007/2014/6/20
   
4. :start
   
5. set /p act_path=输入目录=
   
6. if not exist "!act_path!" (echo 输入目录不存在,请重新输入&ping -w 1000 -n 2 127.1>nul 2>nul&cls&goto start)
   
7. set /a var=!time:~6,-3! 2>nul
   
8. set /a total=0 2>nul
   
9. set /a del_num=0 2>nul
   
10. set "sort=C:\WINDOWS\system32\sort.exe"
    
11. for /f "delims=" %%j in ("!act_path!") do set backup_folder="%%j\rs-backup_folder\!var!"&md !backup_folder! 2>nul
    
12. set tmp=c:\tmp&rd !tmp!>nul 2>nul
    
13. if not exist !tmp! (md "!tmp!">nul 2>nul) else (del /f /s /q "!tmp!">nul 2>nul)
    
14. set rec_file="!backup_folder!\清理记录.txt"
    
15. set /a hour=!time:~0,-9! 2>nul
    
16. set /a minute=!time:~3,-6! 2>nul
    
17. set /a second=!time:~6,-3! 2>nul
    
18. 
    
19. 
    
20. echo.&echo 程序正在对文件进行分类,请耐心等待...
    
21. ::分类获取文件列表
    
22. pushd "!act_path!"
    
23.        
    
24. for /R %%i in (*) do (
    
25.         set extension=%%~xi&set extension=!extension:~-3!
    
26.         echo %%~zi;%%~dpnxi;%%~xi;%%~ti;%%~ni>>"!tmp!\!extension!%%~zi.txt" 2>nul
    
27.         )         
    
28. ::分类获取完成       
    
29.                                                
    
30. pushd "!tmp!"
    
31.        
    
32. ::开始比较，记录重复文件，记录复件，而不记录原件
    
33. 
    
34. cls&echo.&echo 开始筛选相同文件...&ping -w 1000 -n 2 127.1>nul 2>nul
    
35. echo !date!!time!>!rec_file! 2>nul
    
36. 
    
37. for /R %%i in (*) do (
    
38.         set filename=%%~nxi
    
39.         set /a st_count=0
    
40.         for /f "tokens=1-5 delims=;" %%j in (!filename!) do (
    
41.                 set /a st_count+=1
    
42.                 if !st_count! NEQ !del_num! (
    
43.                 set filesize=%%j
    
44.                 set filetime=%%m
    
45.                 set in_filename=%%n
    
46.                 set fullpath=%%k
    
47.                 set /a nd_count=0
    
48.                 echo %%k 2>nul
    
49.                 for /f "tokens=1-5 delims=;" %%j in (!filename!) do (
    
50.                 set /a nd_count+=1
    
51.                 if !nd_count! GTR !st_count! (
    
52.                 if "!filesize!"=="%%j" (
    
53.                 if "!filetime!"=="%%m" (
    
54.                         echo !in_filename!>tmp 2>nul
    
55.                         (findstr /C:"%%n" tmp>nul 2>nul&&(echo !fullpath!;!filesize!>>!rec_file! 2>nul))||(echo %%k;%%j>>!rec_file! 2>nul)               
    
56.                         set /a del_num=!nd_count!
    
57.                         )
    
58.                         )
    
59.                         )
    
60.                         )
    
61.                         )
    
62.                         )
    
63.                         )
    
64. 
    
65. pushd !backup_folder!
    
66. cls&echo.&echo 开始删除相同文件:&ping -w 1000 -n 2 127.1>nul 2>nul
    
67. 
    
68. if exist 清理记录.txt (
    
69.         for /f "skip=1 tokens=1-2 delims=;" %%j in (清理记录.txt) do (
    
70.         copy "%%j" "!backup_folder!">nul 2>nul
    
71.         del /f /s /q "%%j"
    
72.         set /a total+=%%k
    
73.         )
    
74.         ) else (
    
75.         echo 没有发现相同的文件。)
    
76. 
    
77. echo.&echo (存放在!rec_file!) 2>nul&echo.
    
78. set /a total=!total!/1024
    
79. set /a total=!total!/1024
    
80. echo 一共帮助你清理!total!MB 2>nul
    
81. 
    
82. 
    
83. set /a o_hour=!time:~0,-9! 2>nul
    
84. set /a o_minute=!time:~3,-6! 2>nul
    
85. set /a o_second=!time:~6,-3! 2>nul
    
86. 
    
87. set /a o_hour=!o_hour!-!hour! 2>nul
    
88. set /a o_minute=!o_minute!-!minute! 2>nul
    
89. set /a o_second=!o_second!-!second! 2>nul
    
90. if !o_hour! LSS 0 (set /a o_hour=!o_hour!+24)
    
91. if !o_minute! LSS 0 (set /a o_minute=!o_minute!+60&set /a o_hour=!o_hour!-1)
    
92. if !o_second! LSS 0 (set /a o_second=!o_second!+60&set /a o_minute=!o_minute!-1)
    
93. 
    
94. 
    
95. echo 清理耗时:!o_hour! 小时 !o_minute! 分钟 !o_second! 秒 2>nul
    
96. rem 删除自身临时文件.
    
97. del /f /s /q "!tmp!">nul 2>nul
    
98. rem 删除空文件夹
    
99. for /f "tokens=*" %%a in ('dir /b /ad /s "!act_path!"^|!sort! /r') do rd "%%a" 2>nul
    
100. rd !tmp!>nul 2>nul
     
101. echo 清理结束.&pause>nul
     
102. 
     

复制代码

rs369007

这个脚本可以整盘搜索相同文件（文件类型、文件的大小、文件创建时间确定相同文件），并且能够准确删除复件，删除前会对删除文件进行记录，并且备份
注意：应用程序文件夹不能包含在清理的目录内。应用程序内相同文件，不意味是无用的文件。

teslawq

这个好!谢谢楼主分享！