批处理实现遍历指定目录及子目录下所有文件，删除旧版本文件

Promanor

代码是节选自几年前本吧的帖子http://www.proewildfire.cn/forum ... =%C5%FA%B4%A6%C0%ED，但是原帖的代码有缺陷，缺了个重要命令，文件太多会无法改，我补上了修正命令。而且我加了个遍历功能，子目录下 的文件也可以遍历删除旧版本了，但是本人水平有限，代码比较臃肿，期待大神来完善优化代码。我尝试过用dir直接遍历子目录文件，结果是没有结果 ，只能开始是cd进入指定文件夹先把指定文件夹下的文件先删除旧版本，再dir遍历子目录，CD进入每个子目录删除旧版文件。path1=后面的路径是自由设置的路径，填写你要清理旧文件的完整目录名称。测试前记得备份自己的文件。
还有个要求是目录名称不能有空格，有空格是不行的，带空格的目录下不能完成清理。不知道有没有大神能解决。

1. @echo off
   
2. title 批量删除旧版本
   
3. set "path1=D:\ptc\temp\Creotemp8.0"
   
4. cd %path1%
   
5. for %%I in (*.*) do (
   
6.      setlocal EnableDelayedExpansion
   
7.      set pqname=%%~nI
   
8.      set phname=%%~xI
   
9.      for %%I in (!pqname!.*) do (
   
10.          set ppname=%%~xI
    
11.          set pppname=!ppname:~1,5!
    
12.          set phhname=!phname:~1,5!
    
13.          set kk="!pqname!!ppname!"
    
14.          if !phhname! GTR !pppname! del "!kk!"
    
15.       )
    
16.       EndLocal EnableDelayedExpansion
    
17. )
    
18. 
    
19. for /f %%I in ('dir/a:d/b/s') do (
    
20. cd %%I
    
21. for %%I in (*.*) do (
    
22.      setlocal EnableDelayedExpansion
    
23.      set pqname=%%~nI
    
24.      set phname=%%~xI
    
25.      for %%I in (!pqname!.*) do (
    
26.          set ppname=%%~xI
    
27.          set pppname=!ppname:~1,5!
    
28.          set phhname=!phname:~1,5!
    
29.          set kk="!pqname!!ppname!"
    
30.          if !phhname! GTR !pppname! del "!kk!"
    
31.       )
    
32.       EndLocal EnableDelayedExpansion
    
33. )
    
34. )
    
35. pause

复制代码

暗菩提

为什么一定用批处理呢，感觉如果用VB好点，或者用其它编程的。

Promanor

暗菩提 发表于 2023-8-6 11:51
为什么一定用批处理呢，感觉如果用VB好点，或者用其它编程的。

批处理可以实现吧，其实我编程不太好。就是感觉批处理运行比较方便。

暗菩提

Promanor 发表于 2023-8-6 12:40
批处理可以实现吧，其实我编程不太好。就是感觉批处理运行比较方便。

没有说批处理不好，我也用，不过这种遍历用删除用编程软件实现的更方便完善些，还能和CREO软件集成。

lobinsen

好用，感谢分享！！