我用vb调用winrar出现的问题

vb 调用 winrar 命令行 压缩问题~

关于bat中使用rar压缩命令 2010-08-05 19:06:01| 分类： 默认分类 |举报 |字号 订阅 数据库备份，导出的dmp 文件比较大，需要压缩，压缩后大小能变为原来十分之一左右吧。写的是批处理的语句，每天调用，自动导出dmp 文件，压缩删除原文件。首先写下路径先将压缩软件的路径写入系统的环境变量里，加入到path中。比如将“C:\Program Files\WinRAR\”加入到path中。之后批处理中写好相应的处理命令：rar a -df %filename%.rar %filename%.dmp 附： 压缩参数 用法: rar - - a 添加文件到压缩文件c 添加压缩文件注释cf 添加文件注释ch 更改压缩文件参数cw 写入压缩文件注释到文件d 删除压缩文件中的文件e 解压压缩文件到当前目录f 刷新压缩文件中的文件i[参数]= 在压缩文件中查找字符串k 锁定压缩文件l[t,b] 列出压缩文件[技术信息,简洁]m[f] 移动到压缩文件[仅对文件]p 打印文件到标准输出设备r 修复压缩文件rc 重建丢失的卷rn 重命名压缩文件rr[N] 添加数据恢复记录rv[N] 创建恢复卷s[名字|-] 转换压缩文件为自解压格式或反之t 测试压缩文件u 更新压缩文件中的文件v[t,b] 详细列出压缩文件[技术信息,简洁]x 用绝对路径解压文件- 停止扫描ac 压缩或解压后清除存档属性ad 添加压缩文件名到目标路径ag[格式] 使用当前日期生成压缩文件名ao 添加具有存档属性的文件ap 添加路径到压缩文件中as 同步压缩文件内容av 添加用户身份校验 (仅注册版)av- 禁用用户身份校验c- 禁用注释显示cfg- 禁用读取配置cl 名称转换为小写cu 名称转换为大写df 压缩后删除文件dh 打开共享文件ds 对固实压缩文件禁用名称排序e[+] 设置文件排除和包括属性ed 不添加空目录en 不添加"压缩文件结束"标志ep 从名称中排除路径ep1 从名称中排除基本目录ep2 展开为完整路径ep3 扩展路径为包含盘符的完全路径f 刷新文件hp[密码] 同时加密文件数据和文件头id[c,d,p,q] 禁用信息显示ieml[地址] 邮寄压缩文件ierr 发送所有消息到标准错误设备ilog[名称] 把错误写到日志文件 (仅注册版)inul 禁用所有消息ioff 完成一个操作后关闭 PC 电源isnd 启用声音k 锁定压缩文件kb 保留损坏的已解压文件m 设置压缩级别(0-存储...3-默认...5-最大)mc 设置高级压缩参数md 以KB为单位的字典大小(64,128,256,512,1024,2048,4096 or A-G)ms[ext;ext] 指定存储的文件类型mt 设置线程数n 仅包括指定文件n@ 从标准输入设备读取要包括的文件名称n@ 在指定列表文件包括文件o+ 覆盖已存在文件o- 不覆盖已存在文件oc 设置 NTFS 压缩属性or 自动重命名文件os 保存 NTFS 流ow 保存或恢复文件所有权和组[密码] 设置密码p- 不询问密码r 包含子目录r0 仅包含通配符名称的子目录ri[:] 设置优先级 (0-默认,1-最小..15-最大) 和休眠时间(毫秒)rr[N] 添加数据恢复记录rv[N] 创建恢复卷s[,v[-],e] 创建固实压缩文件s- 禁用固实压缩文件sc[obj] 指定字符集sfx[名称] 创建自解压文件si[名称] 从标准输入设备读取数据sl 处理小于指定大小的文件sm 处理大于指定大小的文件t 压缩后测试文件ta 添加日期 后修改的文件,日期格式 YYYYMMDDHHMMSStb 添加日期 前修改的文件,日期格式 YYYYMMDDHHMMSStk 保留原始压缩文件时间tl 设置压缩文件时间为最新时间tn 添加 以后的文件to 添加 以前的文件ts[N] 保存或恢复文件时间(修改,创建,访问)u 更新文件v 自动检测创建卷的大小或者列出所有的卷v[k,b] 创建卷大小=*1000 [*1024, *1]vd 创建卷前清除磁盘内容ver[n] 文件版本控制vn 使用旧样式卷命名方案vp 每卷之前暂停w 指定工作目录x 排除指定的文件x@ 从标准输入设备读取要排除的文件名x@ 排除指定列表文件中的文件y 假设对全部询问都回答是z[文件] 从文件读取压缩文件注释举个例子： 建立一个批处理BackFav.bat（名字可以随便起）文件内容：REM 这个批处理文件是用来自动备份我的收藏夹REM WinRAR - - "D:\Program Files\WinRAR\WinRAR.exe" a -as -r -sfx -zsfxpara.txt -EP1 "d:\my documents\Favorites.exe" "%USERPROFILE%\Favorites"＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝参数说明：a: 添加指定的文件（源目录，这里是"%USERPROFILE%\Favorites"）和文件夹到压缩文件（目标文件，这里是"d:\my documents\Favorites.exe"）中。-as: 这是一个开关，指添加方式是“同步压缩文件内容”-r: 表示“包含子文件夹”-sfx: 表示建立的是一个自解压文件-zsfxpara.txt: 从文件sfxpara.txt读取压缩文件注释，这注释有什么用后面解释-ep1: 表示不把路径%USERPROFILE%保存在压缩文件中2. 注释文件的作用建立压缩文件的时候不光要考虑压缩那些文件，还要考虑怎么解压缩。通过注释文件可以向压缩包传递许多有用的信息。sfxpara.txt内容：PATH=%USERPROFILE%\Silent=1例："C:\Program Files\WinRAR\Rar.exe" a "g:\aa.rar" "f:\11.txt" 压缩"f:\11.txt"到G盘，命名为“aa”"C:\Program Files\WinRAR\Rar.exe" d "g:\aa.rar" "22.bat" 删除压缩包"g:\aa.rar"中的"22.bat" 文件"C:\Program Files\WinRAR\Rar.exe" d "g:\aa.rar" "ABC" 删除压缩包"g:\aa.rar"中的"ABC" 文件夹

Rarexe = App.Path & "\winrar\winrar.exe" WinRAR 程序是不可能在你当前目录下的。

传递命令时只需把 数据 这个文件夹的路径值传递就行了。

把压缩命令写成BAT文件后调用：使用SHELL命令
文件与文件夹在压缩前加入一个判断命令。
解压缩命令 是调用 WINRAR 参数中的 e 命令就行了。路径长短不须你操心
如果实在是不明白就把。WinRAR 中文帮助文档翻看个二三次就懂了。

'生成压缩命令行
'参数注解；
a 命令开关，
-df 压缩后删除原文件，
-ep1 从名称排除基准文件夹，
-ibck后台运行压缩程序。
以上四个参数为winrar 命令行参数。后三个为可选参数，第一个 a 为必须的。

WinRARExEPath 是 WinRAR 程序绝对路径值，从注册表中获取的
ON_NAME & ".rar" 是目标文件文件名称包含驱动器名。称扩展名为 .rar
FilePath 是原文件或文件夹名称包含驱动器名。

BatchStr = """" & WinRARExEPath & """ a -ep1 -o+ -ibck """ & ON_NAME & ".rar" & """ """ & FilePath & """"
Call logFile(App.Path & "\WinRaR.bat", BatchStr) '写入批处理语句
Shell App.Path & "\WinRaR.bat" '调用批处理文件

以上问题你需要解决：
1：如可何操作注册表
2：文件与文件夹的操作
3：命令行中的双引号与单引号的输入
QQ:281972862

原因是VB的shell调用不是阻塞型调用，也就是，在执行第一句的shell后，VB会马上执行下面的删除，当时上面可能还没压缩完，文件占用中，当然删不掉了。
最简单的解决办法是调用批处理解决。

给后来者一个参考解决方法，使用延时
dim savetime as single
savetime = Timer
While Timer < savetime + 1 '此处意思为延时1秒
DoEvents
Wend
把这一段插在 call shell 之后，大概就可以解决了

shell命令问题，关键是在打开QQ的情况下，由于某些文件被QQ占用，所以无法正确解压

---

新兴区13390607178： vb 调用 winrar 命令行 压缩问题 - ？
叶别灰黄： 1

新兴区13390607178： VB调用外部程序的问题 - ？
叶别灰黄： 双击批处理文件时,当前文件夹是批处理文件所在的文件夹,用VB调用批处理文件时,当前文件夹是VB的当前文件夹,即VB的 App.Path ,所以两个操作是在不同的文件夹查找 WinRARV380CN.exe ,WinRARV380CN.exe 不在VB的 App.Path 中,所以找不到.解决办法:在批处理文件中 start /wait WinRARV380CN.exe /s 的前面加一句 cd /d %~dp0

新兴区13390607178： vb压缩文件的小问题?？
叶别灰黄： 官方提供了好几个语言的调用方法,你到官网下载下来看看就知道了 不过官网发的代码是调用的一个dll不是winrar主程序

新兴区13390607178： 关于vb 解压文件的几个问题 - ？
叶别灰黄： Private Sub Command1_Click()Dim Prar As String 'winrar程序路径Dim Pfile As String '压缩文件地址Dim Pdir As String '解压路径Dim PSW As String '解压密码Prar = ＂C:\program files\winrar\winrar.exe＂Pfile = ＂G:\下载\1＂Pdir = ＂...

新兴区13390607178： 使用winrar 解压文件出现错误,文件被损坏怎么办? - ？
叶别灰黄： 1、用WinRAR打开这个遇到错误的压缩包文件,点击菜单中的'工具-修复压缩文件',打开压缩文件修复面板. 2、在压缩文件类型,原文件是什么格式,就选什么格式.指定存放路径,然后点击确定开始修复.3、WinRAR在修复过程中找到了'恢复记录'的存在,就会使用恢复记录来修复这个RAR文件,修复后的文件会以“fixed”开头,解压这个fixed开头的压缩包就可以解决文件破损的问题了.

新兴区13390607178： vb调用winrar创建压缩文件 - ？
叶别灰黄： dim WinRAR = ＂C:\Program Files\Winrar\＂ 'winrar安装路径 dim Path1 = ＂c:\1.xml＂ '要压缩的文件,路径带空格的话字符串最外面要加两对双引号 dim Path2 = ＂c:\2.xml＂ '要压缩的文件,路径带空格的话字符串最外面要加两对双引号 dim RarPath = ＂D:\2.rar＂ '生成的压缩文件,路径带空格的话字符串最外面要加两对双引号 Private Sub Command1_Click() Shell WinRAR & ＂rar.exe a ＂ & RarPath & ＂ ＂ & Path1 & ＂ ＂ & Path2 End Sub

新兴区13390607178： vb调用WINRAR - ？
叶别灰黄： Private Sub Command1_Click() Shell (＂C:\Program Files\WinRAR\winrar.exe a -hpfGzq5yKw c:\secret.rar c:\1.txt＂) End Sub 将添加文件 1.txt 到加密的压缩文件secret.rar中,使用密码'fGzq5yKw'-hp是密码开关 a是压缩参数 像你那个,要加text1...

新兴区13390607178： vb用unrar.exe怎么不行 - ？
叶别灰黄： mystr = ＂C:\Program Files\WinRAR\RAR.exe＂ '注意这里哦 Source = ＂D:\aa\123.rar＂ Target = ＂E:\aa\＂ 'E:\aa\ 最后有斜杠哦 mystr = mystr & ＂ X -y ＂ & Source & ＂ -ad- ＂ & Target 'X的前后都要加一个空格 注意我添加的参数-Y表示不提示 ...

新兴区13390607178： VB调用WinRAR.exe 为压缩文件添加注释 - ？
叶别灰黄： 倒是有办法从文件加载注释到rar 直接加文本试过好像成功不了 你可以先中转进个txt文件 然后再写进注释命令如下:WinRAR c -zinfo.txt my.rar 其中c -z都是命令符 info.txt是注释 文件 my.rar是你需要添加注释的rar文件 OK 可以搞定了

新兴区13390607178： vb如何调用winrar静默压缩文件？
叶别灰黄： '自己修改一下 Private Sub Command1_Click() With CreateObject(＂Wscript.Shell＂) Shell .RegRead(＂HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\App Paths\winrar.EXE\Path＂) & ＂\WinRAR.exe a -r d:\d.rar d:\ddd\*.doc＂, vbHide End With End Sub