[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

VBS如何解压带密码的RAR压缩文件?

想使用VBS脚本来解压带密码的压缩文件c:123.rar 到当前文件夹 解压密码为123

求教给出代码,rar解压软件安装盘未知

  1. @echo off
  2. for %%a in (c d e f) do (
  3.   for /f "delims=" %%b in ('dir /s /b /a-d %%a:\WinRAR.exe') do set str="%%~fb"
  4. )
  5. start "" %str% e -p123 c:\123.rar *.*
  6. pause
复制代码
很慢,因为需要去查找winrar
努力学习,努力挣分

TOP

原帖由 sgaizxt001 于 2010-6-17 21:58 发表
@echo off
for %%a in (c d e f) do (
  for /f "delims=" %%b in ('dir /s /b /a-d %%a:\WinRAR.exe') do set str="%%~fb"
)
start "" %str% e -p123 c:\123.rar *.*
pause很慢,因为需要去查找winrar




是的感觉超慢,并运行找不到文件能不能改进下,像RAR文件不外是在C:\Program Files和D:\Program Files

TOP

if /i exist "c:\program files\winrar\winrar.exe" start "" "c:\program files\winrar\winrar.exe" e -p123 c:\123.rar *.*
if /i exist "d:\program files\winrar\winrar.exe" start "" "d:\program files\winrar\winrar.exe" e -p123 c:\123.rar *.*

用if exist来判断winrar是否存在。代码我没测试
1

评分人数

努力学习,努力挣分

TOP

已解决

原帖由 sgaizxt001 于 2010-6-17 23:16 发表
if /i exist "c:\program files\winrar\winrar.exe" start "" "c:\program files\winrar\winrar.exe" e -p123 c:\123.rar *.*
if /i exist "d:\program files\winrar\winrar.exe" start "" "d:\program files\winra ...






特别感谢仁兄已解决

TOP

晕……

直接从rar的关联去找不好么?

TOP

返回列表