如何使用批处理直接调用系统的winrar程序，无论压缩程序安装到哪个盘都可以直接调用！！！
中国DOS联盟
联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [求助]批处理直接调用winrar程序
查看 1,310 回复 14
楼 主
[求助]批处理直接调用winrar程序
发表于 2008-11-16 14:06 · 中国 北京 鹏博士BGP
第 2 楼
发表于 2008-11-16 14:36 · 中国 福建 福州 连江县 电信
@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
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
本帖最近评分记录
（共 1 条）
点击查看详情
| 评分人 | 分数 | 时间 |
|---|---|---|
| kongzi | +1 | 2008-11-16 15:22 |
第 3 楼
发表于 2008-11-16 15:22 · 中国 北京 鹏博士BGP
非常感谢balinger，但是我运行了一下，为什么按任意键继续后就退出了，没有运行winrar程序呀!
第 4 楼
发表于 2008-11-16 15:41 · 中国 江西 赣州 安远县 电信
@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 ]
第 5 楼
发表于 2008-11-16 15:46 · 中国 北京 鹏博士BGP
我是想写一个批处理遍历系统的rar压缩包，调用winrar命令行删除rar压缩包里的某一个文件。这个批处理如何来写。谢谢！！！winrar d 是删除压缩包里的文件。
[ Last edited by kongzi on 2008-11-16 at 15:48 ]
[ Last edited by kongzi on 2008-11-16 at 15:48 ]
第 6 楼
Re 5楼
发表于 2008-11-16 15:49 · 中国 江西 赣州 安远县 电信
4 楼代码已更新。
[ Last edited by tireless on 2008-11-16 at 15:54 ]
[ Last edited by tireless on 2008-11-16 at 15:54 ]
本帖最近评分记录
（共 1 条）
点击查看详情
| 评分人 | 分数 | 时间 |
|---|---|---|
| kongzi | +1 | 2008-11-16 16:00 |
第 7 楼
发表于 2008-11-16 16:00 · 中国 北京 鹏博士BGP
我运行了一下报错。：（
第 8 楼
Re 7楼
发表于 2008-11-16 16:01 · 中国 江西 赣州 安远县 电信
报错信息是？
第 9 楼
发表于 2008-11-16 16:02 · 中国 北京 鹏博士BGP
我再说的具体点想写一个批处理遍历系统的rar压缩包，如果压缩包里有1.exe调用winrar命令行删除rar压缩包里的1.exe这个程序。这个批处理如何来写。谢谢！！！winrar d 是删除压缩包里的文件。
第 10 楼
发表于 2008-11-16 16:05 · 中国 北京 鹏博士BGP
Originally posted by tireless at 2008-11-16 04:01 PM:
报错信息是？
---------------------------
C:\Program
---------------------------
Windows 找不到文件 'C:\Program'。请确定文件名是否正确后，再试一次。要搜索文件，请单击「开始」按钮，然后单击“搜索”。
---------------------------
确定
---------------------------
第 11 楼
发表于 2008-11-16 16:07 · 中国 北京 鹏博士BGP
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
)
)
这是我写的肯定不对，这个只是遍历磁盘根目录下的压缩包文件。
IF exist %%i: (
winrar.exe d %%c\*.rar 1.exe
)
)
这是我写的肯定不对，这个只是遍历磁盘根目录下的压缩包文件。
第 12 楼
发表于 2008-11-16 16:09 · 中国 江西 赣州 安远县 电信
Originally posted by kongzi at 2008-11-16 04:05 PM:
---------------------------
C:\Program
---------------------------
Windows 找不到文件 'C:\Program'。请确定文件名是否正确后，再试一次。要搜索文件，请单击「开始 ...
不好意思，弄错了个地方。再试试 4 楼的代码。
第 13 楼
发表于 2008-11-16 16:24 · 中国 北京 鹏博士BGP
非常感谢tireless程序可以运行了，但是好像没有实现我的预期的效果。
第 14 楼
我结合了一下，好像不行，那位高人给调试一下
发表于 2008-11-16 16:41 · 中国 北京 鹏博士BGP
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
)
)
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
)
)
第 15 楼
发表于 2008-11-16 17:13 · 中国 江西 赣州 安远县 电信
这个是只搜索盘符根目录下的 .rar 文件：
如果要搜索包括子目录的 .rar 文件，将：
for %%a in (%%A:\*.rar)
改为：
for /r %%A: %%a in (*.rar)
[ Last edited by tireless on 2008-11-16 at 17:35 ]
@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 ]
论坛跳转: