中国DOS联盟

如何使用批处理直接调用系统的winrar程序，无论压缩程序安装到哪个盘都可以直接调用！！！

@echo off
for /f "tokens=1,2,*" %%i in ('REG QUERY "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\WinRAR.exe" /ve') do set "rar=%%k"
echo %rar%
pause

非常感谢balinger，但是我运行了一下，为什么按任意键继续后就退出了，没有运行winrar程序呀!

@echo off if exist "C:\Program Files\WinRAR\WinRAR.exe" ( set WinRAR_Path=C:\Program Files\WinRAR\WinRAR.exe ) else ( reg export "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\WinRAR.exe" tmp.reg >nul for /f "skip=3 delims== tokens=2" %%a in ('type tmp.reg') do ( set WinRAR_Path=%%~a call set WinRAR_Path=%%WinRAR_Path:\\=\%% del tmp.reg goto next ) ) :next start "" "%WinRAR_Path%" d "压缩包文件名" "要删除的文件名"
可恶的 reg.exe 的 BUG...直接 reg query 会缺字符，没办法只能先导出。

[ Last edited by tireless on 2008-11-16 at 17:38 ]

我是想写一个批处理遍历系统的rar压缩包，调用winrar命令行删除rar压缩包里的某一个文件。这个批处理如何来写。谢谢！！！winrar d 是删除压缩包里的文件。

[ Last edited by kongzi on 2008-11-16 at 15:48 ]

4 楼代码已更新。

[ Last edited by tireless on 2008-11-16 at 15:54 ]

我运行了一下报错。：（

报错信息是？

我再说的具体点想写一个批处理遍历系统的rar压缩包，如果压缩包里有1.exe调用winrar命令行删除rar压缩包里的1.exe这个程序。这个批处理如何来写。谢谢！！！winrar d 是删除压缩包里的文件。

Originally posted by tireless at 2008-11-16 04:01 PM:
报错信息是？

---------------------------
C:\Program
---------------------------
Windows 找不到文件 'C:\Program'。请确定文件名是否正确后，再试一次。要搜索文件，请单击「开始」按钮，然后单击“搜索”。
---------------------------
确定
---------------------------

for /d %%i in (C,D,E,F,G,H,I,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z\*.rar) do (
IF exist %%i: (
winrar.exe d %%c\*.rar 1.exe
)
)
这是我写的肯定不对，这个只是遍历磁盘根目录下的压缩包文件。

Originally posted by kongzi at 2008-11-16 04:05 PM:

---------------------------
C:\Program
---------------------------
Windows 找不到文件 'C:\Program'。请确定文件名是否正确后，再试一次。要搜索文件，请单击「开始 ...

不好意思，弄错了个地方。再试试 4 楼的代码。

非常感谢tireless程序可以运行了，但是好像没有实现我的预期的效果。

for /d %%i in (C,D,E,F,G,H,I,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z\*.rar) do (
IF exist %%i: (if exist "C:\Program Files\WinRAR\WinRAR.exe" (
set WinRAR_Path=C:\Program Files\WinRAR\WinRAR.exe
) else (
reg export "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\WinRAR.exe" tmp.reg

>nul
for /f "skip=3 delims== tokens=2" %%a in ('type tmp.reg') do (
set WinRAR_Path=%%~a
call set WinRAR_Path=%%WinRAR_Path:\\=\%%
goto next
)
)

:next
start "" "%WinRAR_Path%" d "%%c\*.rar" "1.exe"
del tmp.reg

)
)

这个是只搜索盘符根目录下的 .rar 文件：
@echo off if exist "C:\Program Files\WinRAR\WinRAR.exe" ( set WinRAR_Path=C:\Program Files\WinRAR\WinRAR.exe ) else ( reg export "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\WinRAR.exe" tmp.reg >nul for /f "skip=3 delims== tokens=2" %%a in ('type tmp.reg') do ( set WinRAR_Path=%%~a call set WinRAR_Path=%%WinRAR_Path:\\=\%% del tmp.reg goto next ) ) :next for %%A in (c d e f g h i j k l m n o p q r s t u v w x y z) do ( if exist %%A: ( for %%a in (%%A:\*.rar) do ( start "" "%WinRAR_Path%" d -INUL "%%a" "1.exe" ) ) )

如果要搜索包括子目录的 .rar 文件，将：

for %%a in (%%A:\*.rar)

改为：

for /r %%A: %%a in (*.rar)

[ Last edited by tireless on 2008-11-16 at 17:35 ]