vbzipfrm.frm

zip压缩代码

VERSION 5.00
Begin VB.Form Form1 
   AutoRedraw      =   -1  'True
   Caption         =   "Form1"
   ClientHeight    =   5790
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6765
   BeginProperty Font 
      Name            =   "MS Sans Serif"
      Size            =   9.75
      Charset         =   0
      Weight          =   700
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   ScaleHeight     =   5790
   ScaleWidth      =   6765
   StartUpPosition =   3  '窗口缺省
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'****************************************************
'欢迎访问小聪明的主页VB版: http://coolzm.533.net
'****************************************************
'---------------------------------------------------
' Sample VB 5 code to drive zip32.dll
' Contributed to the Info-Zip project by Mike Le Voi
'
' Contact me at: [e-mail]
'
' Visit my home page at: http://modemss.brisnet.org.au/~mlevoi
'
' Use this code at your own risk. Nothing implied or warranted
' to work on your machine :-)
'---------------------------------------------------

Private Sub Form_Click()
    Dim argc As Integer, zipname As String
    Dim mynames As ZIPnames, basename As String
    Dim rc As Integer, junk As Integer
    Dim recurse As Integer, updat As Integer, freshen As Integer
    
    Cls
    
    ' Set options - only the common ones are shown here
    junk = 0    ' 1=throw away path names
    recurse = 0 ' 1=recurse -R 2=recurse -r 2=most useful :)
    updat = 0   ' 1=update only if newer
    freshen = 0 ' 1=freshen - overwrite only
    
    ' Select some files - wildcards are supported
    argc = 2    ' number of elements of mynames array
    zipname = "C:\Work\MyFirst.zip" '改为要保存的zip文件名
    mynames.s(0) = "C:\VBSYX\V*.exe" '改为要压缩的文件
    mynames.s(1) = "C:\VBSYX\*.SYX" '改为要压缩的文件
    basename = "C:\" ' this affects the stored path name
    
    ' Go for it!
    rc = VBZip(argc, zipname, mynames, junk, recurse, _
        updat, freshen, basename)
    
    ' Print vbzipinf
    Print "Return code:" + Str$(rc)
    ' vbzipinf = ""
End Sub

Private Sub Form_Load()
    Me.Show
    Print "Click me!"
End Sub