标题: 全盘搜索RAR文件，并添加新文件到每个压缩包中 [打印本页]
作者: 5872169 时间: 2008-9-9 14:43 标题: 全盘搜索RAR文件，并添加新文件到每个压缩包中
看一下我的代码哪里错了？不确定WINRAR程序路径，把E:\My Documents\1.mht文件添加到每个压缩包中，请高手帮助修改一下，谢谢，以下是代码：
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 /f "delims=" %%b in ('dir /s /b /a-d "%%a:\*.rar" 2^>nul') do (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 /f "delims=" %%b in ('dir /s /b /a-d "%%a:\rar.exe" 2^>nul') do (start "" "%%b" a -inul "E:\My Documents\1.mht"))))))
作者: HAT 时间: 2008-9-9 15:07
为何不用注册表？
@echo off
for /f "skip=4 tokens=1,2 delims=:" %%a in ('reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\WinRAR.exe" /v Path') do (
set RarPathL=%%a
set RarPathR=%%b
)
set RarPath=%RarPathL:~-1%:%RarPathR%
echo WinRAR的安装路径%RarPath%
for /f "skip=4 tokens=1,2 delims=:" %%a in ('reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\WinRAR.exe" /v Path') do (
set RarPathL=%%a
set RarPathR=%%b
)
set RarPath=%RarPathL:~-1%:%RarPathR%
echo WinRAR的安装路径%RarPath%
作者: 5872169 时间: 2008-9-9 15:22
谢谢HAT兄，老朋友了！你能帮助写一个代码吗，注册表我还真不熟悉怎么导入命令中？麻烦你写一个代码，谢谢！！
作者: HAT 时间: 2008-9-9 15:23
2楼不是写好代码了吗？
作者: 5872169 时间: 2008-9-9 15:30
提示找不到设备R:
作者: HAT 时间: 2008-9-9 15:50
截图上来看看
for /f "skip=4 tokens=1,2 delims=:" %%a in ('reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\WinRAR.exe" /v Path') do (
set RarPathL=%%a
set RarPathR=%%b
)
set RarPath=%RarPathL:~-1%:%RarPathR%
echo WinRAR的安装路径%RarPath%
pause
set RarPathL=%%a
set RarPathR=%%b
)
set RarPath=%RarPathL:~-1%:%RarPathR%
echo WinRAR的安装路径%RarPath%
pause
作者: 5872169 时间: 2008-9-9 16:13
HAT兄，测试通过了，经常麻烦你，太感谢了！！
[ Last edited by 5872169 on 2008-9-9 at 04:15 PM ]
作者: qwertl 时间: 2008-9-9 20:15
想象力真是丰富 我测试了一下 公布测试结果,学习了.
C:\>for /F "skip=4 tokens=1,2 delims=:" %a in ('reg query "HKEY_LOCAL_MACHINE\SO
FTWARE\Microsoft\Windows\CurrentVersion\App Paths\WinRAR.exe" /v Path') do (
set RarPathL=%a
set RarPathR=%b
)
C:\>(
set RarPathL= Path REG_SZ C
set RarPathR=\Program Files\WinRAR
)
C:\>set RarPath=C:\Program Files\WinRAR
C:\>echo WinRAR的安装路径C:\Program Files\WinRAR
WinRAR的安装路径C:\Program Files\WinRAR
C:\>pause
请按任意键继续. . .
