Question

如何利用vb调用winzip压缩文件

Answer 1

1 这个问题比较复杂，上面的源代码编译成CGZipLibrary.dll

  然后引用可以调用里面的类压缩解压。

    CGUnzipFiles 解压类

    CGzipFiles  压缩类

2 解压的例子

Dim oUnZip As CGUnzipFiles

Set oUnZip = New CGUnzipFiles

With oUnZip

     .ZipFileName = sA      '压缩文件名

     .ExtractDir = App.Path & "\temp"   '解压路径

     .HonorDirectories = False

     If .Unzip <> 0 Then MsgBox .GetLastMessage   ’执行结果消息

     

End With

Set oUnZip = Nothing

3 CGzipFiles

MakeZipFile 方法生成压缩文件。

4. 最简单的实现办法是

   系统安装winzip 或winrar 

   然后用

Shell 函数

执行命令压缩或解压。