1VERSION 5.00
2Begin VB.Form Form1
3   AutoRedraw      =   -1  'True
4   Caption         =   "Form1"
5   ClientHeight    =   3150
6   ClientLeft      =   60
7   ClientTop       =   345
8   ClientWidth     =   6570
9   BeginProperty Font
10      Name            =   "MS Sans Serif"
11      Size            =   9.75
12      Charset         =   0
13      Weight          =   700
14      Underline       =   0   'False
15      Italic          =   0   'False
16      Strikethrough   =   0   'False
17   EndProperty
18   LinkTopic       =   "Form1"
19   ScaleHeight     =   3150
20   ScaleWidth      =   6570
21   StartUpPosition =   1  'CenterOwner
22End
23Attribute VB_Name = "Form1"
24Attribute VB_GlobalNameSpace = False
25Attribute VB_Creatable = False
26Attribute VB_PredeclaredId = True
27Attribute VB_Exposed = False
28
29Option Explicit
30
31'---------------------------------------------------------------
32'-- Please Do Not Remove These Comments!!!
33'---------------------------------------------------------------
34'-- Sample VB 5 code to drive zip32.dll
35'-- Contributed to the Info-ZIP project by Mike Le Voi
36'--
37'-- Contact me at: mlevoi@modemss.brisnet.org.au
38'--
39'-- Visit my home page at: http://modemss.brisnet.org.au/~mlevoi
40'--
41'-- Use this code at your own risk. Nothing implied or warranted
42'-- to work on your machine :-)
43'---------------------------------------------------------------
44'--
45'-- The Source Code Is Freely Available From Info-ZIP At:
46'-- http://www.cdrom.com/pub/infozip/infozip.html
47'--
48'-- A Very Special Thanks To Mr. Mike Le Voi
49'-- And Mr. Mike White Of The Info-ZIP project
50'-- For Letting Me Use And Modify His Orginal
51'-- Visual Basic 5.0 Code! Thank You Mike Le Voi.
52'---------------------------------------------------------------
53'--
54'-- Contributed To The Info-ZIP Project By Raymond L. King
55'-- Modified June 21, 1998
56'-- By Raymond L. King
57'-- Custom Software Designers
58'--
59'-- Contact Me At: king@ntplx.net
60'-- ICQ 434355
61'-- Or Visit Our Home Page At: http://www.ntplx.net/~king
62'--
63'---------------------------------------------------------------
64' This is the original VB example (with some changes) for use
65' with Zip32.dll (Zip 2.31) but not Zip32z64.dll (Zip 3.0).
66'
67' Minor changes to use current directory and VB project files
68' for the example and to turn off encryption.
69'
70' The VB example provided with Zip 3.0 is more extensive.  Even
71' if you plan to use the updated zip32.dll instead of the new
72' zip32z64.dll (Zip 3.0), there may be some things you might find
73' useful in the VB example there.
74'
75' 2/27/2005 Ed Gordon
76'---------------------------------------------------------------
77
78Private Sub Form_Click()
79
80  Dim retcode As Integer  ' For Return Code From ZIP32.DLL
81
82  Cls
83
84  '-- Set Options - Only The Common Ones Are Shown Here
85  '-- These Must Be Set Before Calling The VBZip32 Function
86  zDate = vbNullString
87  'zDate = "2005-1-31"
88  'zExcludeDate = 1
89  'zIncludeDate = 0
90  zJunkDir = 0     ' 1 = Throw Away Path Names
91  zRecurse = 0     ' 1 = Recurse -r 2 = Recurse -R 2 = Most Useful :)
92  zUpdate = 0      ' 1 = Update Only If Newer
93  zFreshen = 0     ' 1 = Freshen - Overwrite Only
94  zLevel = Asc(9)  ' Compression Level (0 - 9)
95  zEncrypt = 0     ' Encryption = 1 For Password Else 0
96  zComment = 0     ' Comment = 1 if required
97
98  '-- Select Some Files - Wildcards Are Supported
99  '-- Change The Paths Here To Your Directory
100  '-- And Files!!!
101  ' Change ZIPnames in VBZipBas.bas if need more than 100 files
102  zArgc = 2           ' Number Of Elements Of mynames Array
103  zZipFileName = "MyFirst.zip"
104  zZipFileNames.zFiles(0) = "vbzipfrm.frm"
105  zZipFileNames.zFiles(1) = "vbzip.vbp"
106  zRootDir = ""    ' This Affects The Stored Path Name
107
108  ' Older versions of Zip32.dll do not handle setting
109  ' zRootDir to anything other than "".  If you need to
110  ' change root directory an alternative is to just change
111  ' directory.  This requires Zip32.dll to be on the command
112  ' path.  This should be fixed in Zip 2.31.  1/31/2005 EG
113
114  ' ChDir "a"
115
116  '-- Go Zip Them Up!
117  retcode = VBZip32
118
119  '-- Display The Returned Code Or Error!
120  Print "Return code:" & Str(retcode)
121
122End Sub
123
124Private Sub Form_Load()
125
126  Me.Show
127
128  Print "Click me!"
129
130End Sub
131