急,由于暂时没有msdn,如何用shell命令压缩为zip格式

Question

例如用rar例子是这样的 Shell("rar a -sfx -ep -m5 c:temp\" & bbb & " " & "c:\temp\aaa.txt", 1),请教各位大侠如何压缩zip格式

Answer 1

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 2

注意版权问题，我这里有zip的压缩和解压的动态连接库，带例子，要的话留个信箱

Answer 3

retval = Shell(wcmd, 6),给一个解压的方法

Answer 4

http://www.sijiqing.com/vbgood/article/0045938.html
看完就明白了