VB 利用WINRAR 压缩文件及解压

预备知识:

1. Shell 函数

执行一个可执行文件，返回一个 Variant (Double)，如果成功的话，代表这个程序的任务 ID，若不成功，则会返回 0。

语法

Shell(pathname[,windowstyle])

Shell 函数的语法含有下面这些命名参数：

部分	描述
pathname	必要参数。Variant (String)，要执行的程序名，以及任何必需的参数或命令行变量，可能还包括目录或文件夹，以及驱动器。
Windowstyle	可选参数。Variant (Integer)，表示在程序运行时窗口的样式。如果 windowstyle 省略，则程序是以具有焦点的最小化窗口来执行的。

windowstyle 命名参数有以下这些值：

常量	值	描述
vbHide	0	窗口被隐藏，且焦点会移到隐式窗口。
VbNormalFocus	1	窗口具有焦点，且会还原到它原来的大小和位置。
VbMinimizedFocus	2	窗口会以一个具有焦点的图标来显示。
VbMaximizedFocus	3	窗口是一个具有焦点的最大化窗口。
VbNormalNoFocus	4	窗口会被还原到最近使用的大小和位置，而当前活动的窗口仍然保持活动。
VbMinimizedNoFocus	6	窗口会以一个图标来显示。而当前活动的的窗口仍然保持活动。

说明

如果 Shell 函数成功地执行了所要执行的文件，则它会返回程序的任务 ID。任务 ID 是一个唯一的数值，用来指明正在运行的程序。如果 Shell 函数不能打开命名的程序，则会产生错误。

注意 缺省情况下，Shell 函数是以异步方式来执行其它程序的。也就是说，用 Shell 启动的程序可能还没有完成执行过程，就已经执行到 Shell 函数之后的语句。

2.  WINRAR命令行语法

从命令行也可以运行 WinRAR 命令，常规的命令行语法描述如下:

  WinRAR  <命令> -<开关1> -<开关N> <压缩文件> <文件...> <@列表文件...> <解压路径\>

命令 要 WinRAR 运行的字符组合代表功能
开关 切换操作指定类型，压缩强度，压缩文件类型，等等的定义。
压缩文件 要处理的压缩文件名。
文件 要处理的文件名。
列表文件 列表文件是包含要处理文件名称的纯文本。文件名应该在第一卷启动。可以在列表文件中使用//字符后添加注释。例如，你可以包含两列字符串创建 backup.lst:c:\work\doc\*.txt //备份文本文档     c:\work\image\*.bmp //备份图片c:\work\misc并接着运行: winrar a backup @backup.lst你可以在命令行中同时指定普通的文件名和列表文件名。
解压路径 只与命令 e 和 x ，搭配使用。指出解压文件添加的位置。如果文件夹不存在时，会自动创建。
注意事项
a) 如果未指定 文件 或是 列表文件 时，WinRAR 将会以缺省的 *.* 运行全部的文件;
b) 如果未指定压缩文件扩展名时，WinRAR 将会使用在 压缩配置 中选定的默认压缩文件格式。但你可以指定 .RAR 或 .ZIP
扩展名来替换它们;
c) 在命令行所输入的开关会替换相同的配置设置值;
d) 在命令 c、e、s、t、rr、k 和 x 可在压缩文件名中使用通配符。如此可以用单个的命令来进行超过一个以上的压缩文件，除此之外，如果你指定 -r 开关于这些命令时，它们将会搜索在子文件夹中的压缩文件;

e) 某些命令和开关只应用在 RAR 压缩文件，有些则在 RAR 和 ZIP 都可使用，而某些则可应用在全部的压缩文件格式。这一些都得看压缩文件格式所提供的特性而定;
f) 命令和开关的大小写是相同意思的，你可以用大写或者小写来下命令均可。

命令 A - 添加文件到压缩文件

添加指定的文件和文件夹到压缩文件中。此命令行等同于 添加。
注意: 因为分卷压缩文件修改是禁用的，此命令无法应用来更新分卷压缩文件，只用于创建时。
示例:
a) 从当前文件夹添加全部 *.hlp 文件到压缩文件 help.rar 中

WinRAR a help *.hlp

b) 从当前文件夹和子文件夹压缩全部文件成为 362000 字节大小、固实的、分卷自解压文件 save.part1.exe，save.part2.rar，
save.part3.rar 等，并在每一个分卷中添加恢复记录
WinRAR a -r -v362 -s -sfx -rr save

因为未指定文件名，全部文件 (*.*) 将会被添加。

c) 如果指定了文件夹名，并结合引用参数 开关 -r，这时整个文件夹和子文件夹的全部内容都会被添加到压缩文件中。下面的命令将会把文件夹 Bitmaps 中全部的文件添加到 RAR 压缩文件 Pictures 中

WinRAR a -r Pictures.rar Bitmaps
当然这也可以使用常规格式用 Bitmaps 来代替 Bitmaps\*.*。

命令 X - 以完整路径名称从压缩文件解压压缩

以完整路径解压文件和文件夹。保存在压缩文件中的文件夹架构，将会完整的还原恢复。此命令行等同于 压缩文件管理 命令 解压

   类似的方法有 命令 e，此命令可以解压文件到当前文件夹或者指定的文件夹。
例如，命令:
WinRAR x Fonts *.ttf
会从压缩文件解压 *.ttf 字体文件到当前文件夹，但下面命令:
WinRAR x Fonts *.ttf NewFonts\
会从压缩文件解压 *.ttf 字体文件到文件夹 NewFonts

在上面的例子，你必须使用附加的倒斜线来表示目标文件夹。

获得WINRAR.EXE 的安装路径

每个用户的WINRAR.EXE 的安装路径可能不同，我们可以通过注册表来获取。运行REGEDIT.EXE，打开注册表，在 HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\App Paths分支下,点击主键INRAR.EXE你会看到在右边PATH项目下,显示了WINRAR.EXE 的安装路径。需要首先引用Registry Access Functions library(RegObj.dll)]:

代码如下:

'[先引用Registry Access Functions library(RegObj.dll)]:

Private Sub Command1_Click()
compress "C:\3.bmp", "c:\x.bmp"   ' 将"C:\3.bmp",压缩为"c:\x.bmp" 。
End Sub

Function GetWINRARPath() As String
Dim myReg As New Registry, KeyFound As Boolean
KeyFound = myReg.GetKeyValue(HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\App Paths\winrar.EXE", "Path", GetWINRARPath)
If KeyFound = False Then MsgBox "系统未安装WINRAR.EXE!": GetWINRARPath = ""
If KeyFound = True Then GetWINRARPath = GetWINRARPath & "\WINRAR"
End Function

Sub compress(ByVal SOURCE As String, ByVal TARGET As String)
If Not GetWINRARPath = "" And Dir(SOURCE) > "" Then Shell GetWINRARPath & " a " & TARGET & " " & SOURCE, vbHide
End Sub

Sub decompress(ByVal SOURCE As String, ByVal TARGET As String)
If Not GetWINRARPath = "" And Dir(SOURCE) > "" Then Shell GetWINRARPath & " x " & TARGET & " " & SOURCE, vbHide
End Sub

Private Sub Command2_Click()
decompress "C:\x.bmp", "c:\3.bmp"  ' 将"C:\x.bmp",解压缩为"c:\3.bmp"
End Sub