我的小程序生成一个文件，但是它太大，如何将其直接生成压缩文件？？

Question

我的小程序生成一个数据库，怎样才能在VB6中直接将它直接用winzip压缩后，生成。

Answer 1

复制相应的dll、ocx....
直接用winrar或winzip压缩成exe文件就可以了

Answer 2

Option ExplicitPrivate Sub Command1_Click()
    Dim wzipexe As String    ' winzip 执行文件的位置
    Dim wsource As String    ' 原始文件 (压缩前)
    Dim wtarget As String      ' 目地文件 (压缩后)
    Dim wcmd As String        ' Shell 指令
    Dim retval As Double      ' Shell 指令传回值    ' Shell 指令
    wzipexe = "C:\program files\winzip\WINzip32" ' winzip 执行文件的位置
    wtarget = Text2.Text  ' 目地文件 (压缩后)
    wsource = Text1.Text ' 原始文件 (压缩前)
    wcmd = wzipexe & " -a " & wtarget & " " & wsource
    retval = Shell(wcmd, 6)
    
    
End Sub

Answer 3

有一些控件、dll用于zip压缩，可以到vbgood找找

Answer 4

强烈建议用UPX压缩！
包你不好悔得压缩工具
因为压缩后不用解压直接运行！

Answer 5

用第三方控件执行压缩和解压，也可以用 shell 调用外部程序，不过还是没有内置控件方便控制

Answer 6

fxy_2002(阿勇) 说的才是对于编程来讲可控的最好的方法，调用第三程序也可以，但是如果你的程序要发布的话，别人用起来就不方便。

Answer 7

个人觉得楼上的方法不可取。不方便！
1、winrar或winzip压缩成exe文件
2、寻问是否要压缩？

Answer 8

复制相应的dll、ocx....
直接用winrar或winzip压缩成exe文件就可以了