[已解决]批处理如何实现全盘搜索多个指定rar压缩文件并解压？

ygqiang

[已解决]批处理，搜索特定目录下的rar压缩文件，解压缩。如果修改为：搜索所有盘符？

1. @echo off
   
2. if "%1" == "h" goto begin
   
3. mshta vbscript:createobject("wscript.shell").run("%~fs0 h",0)(window.close)&&exit
   
4. :begin
   
5. rem 下边开始写批处代码了
   
6. 
   
7. 
   
8. 
   
9. echo 保存文件执行路径
   
10. pushd "%~dp0"
    
11. 
    
12. 
    
13. set "fdir=0-0朗科06"
    
14. set files=00-00robocopy.rar 备份exe.rar 显示桌面.rar curl.rar devcon.rar dowld.rar grep.rar robocopy.rar sed.rar SETRES.rar VBScript.rar
    
15. 
    
16. if exist "C:\Program Files\WinRAR\WinRAR.exe" set "rar=C:\Program Files\WinRAR\WinRAR.exe"
    
17. if exist "C:\Program Files (x86)\WinRAR\WinRAR.exe" set "rar=C:\Program Files (x86)\WinRAR\WinRAR.exe"
    
18. echo %rar%
    
19. 
    
20. 
    
21. 
    
22. for %%a in (D E F G H I J K L M N O P Q R S T U V W X Y Z) do (
    
23. fsutil fsinfo volumeinfo %%a:\ | findstr "错误" >nul && echo %%a不可读取 || echo %%a可读取 && (
    
24. 
    
25. 
    
26.         for /f "delims=" %%b in ('dir /ad/b/s %%a:\^|findstr "\\%fdir%$"') do (
    
27.             cd /d "%%b"
    
28.             for /f "delims=" %%c in ('dir /a-d/b/s %files%') do (
    
29.                 echo;%%c
    
30.                 "%rar%" x -y -ibck "%%c" "%%~dpc"
    
31.             )
    
32.         )
    
33. 
    
34. 
    
35. )
    
36. )
    
37. 
    
38. cls
    
39. 
    
40. echo 恢复文件执行路径
    
41. popd
    
42. 
    
43. cls
    
44. ping 127.0.0.1 -n 5 >nul 2>nul
    
45. exit

复制代码

Batcher

第22行不是已经实现这个功能了吗

ygqiang

回复 2# Batcher


    26-30这段代码，如何修改呢？

Batcher

回复 3# ygqiang


修改的目的是什么？
代码报错了？代码的功能跟你的预期不一致？

ygqiang

回复 4# Batcher


    1楼的代码功能：如果某个盘符下有“0-0朗科06“目录，才会搜索这个目录下的rar文件并解压缩。
需要的功能：搜索所有盘符下的rar文件并解压缩。

GNU

26~32改成：

1. pushd "%%a:"
   
2. for /f "delims=" %%c in ('dir /a-d/b/s %files%') do (
   
3.     echo;%%c
   
4.     "%rar%" x -y -ibck "%%c" "%%~dpc"
   
5. )
   
6. popd

复制代码

ygqiang

回复 6# GNU


    多谢。测试通过。。搞定了。