怎么用VBA压缩文件 及 解压

本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/northwolves/archive/2005/09/25/489106.aspx
预备知识:

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