1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
|
VERSION 5.00
Begin VB.Form Form1
AutoRedraw = -1 'True
Caption = "Form1"
ClientHeight = 3150
ClientLeft = 60
ClientTop = 345
ClientWidth = 6570
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 = 3150
ScaleWidth = 6570
StartUpPosition = 1 'CenterOwner
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'---------------------------------------------------------------
'-- Sample VB 6 code to drive zip32z64.dll
'--
'-- Based on code contributed to the Info-ZIP project by Mike Le Voi
'--
'-- See the Original VB example in a separate directory for
'-- more information
'--
'-- Use this code at your own risk. Nothing implied or warranted
'-- to work on your machine :-)
'---------------------------------------------------------------
'--
'-- The Source Code Is Freely Available From Info-ZIP At:
'-- ftp://ftp.info-zip.org/pub/infozip/infozip.html
'-- and
'-- http://sourceforge.net/projects/infozip/
'--
'-- A Very Special Thanks To Mr. Mike Le Voi
'-- And Mr. Mike White Of The Info-ZIP project
'-- For Letting Me Use And Modify His Orginal
'-- Visual Basic 5.0 Code! Thank You Mike Le Voi.
'---------------------------------------------------------------
'--
'-- Contributed To The Info-ZIP Project By Raymond L. King
'-- Modified June 21, 1998
'-- By Raymond L. King
'-- Custom Software Designers
'--
'-- Contact Me At: king@ntplx.net
'-- ICQ 434355
'-- Or Visit Our Home Page At: http://www.ntplx.net/~king
'--
'---------------------------------------------------------------
'---------------------------------------------------------------
' Zip32z64.dll is the new Zip32.dll based on Zip 3.0 and compiled
' with Zip64 support enabled. See windll.txt in the windll directory
' for more on Zip32z64 and the comments in VBZipBas.bas.
'
' Contact Info-Zip if problems. This code is
' provided under the Info-Zip license.
'
' 4/24/2004, 12/4/2007 EG
'---------------------------------------------------------------
Private Sub Form_Click()
Dim retcode As Integer ' For Return Code From ZIP32.DLL
Dim iFiles As String
Dim FilesToZip() As String
Dim i As Long
Cls
'-- Set Options - Only The Common Ones Are Shown Here
'-- These Must Be Set Before Calling The VBZip32 Function
' In VB 6 you can see the list of possible options and the defaults
' by adding a space between any parameters which should make the tip box
' appear. Delete a := and retype to see a list of choices.
' Be warned: There are bugs in the previous dll. See the Original VB
' example in the VB directory for details.
If Not SetZipOptions(ZOPT, _
ZipMode:=Add, _
CompressionLevel:=c6_Default) Then
' Some additional options ...
' RootDirToZipFrom:="", _
' strip paths and just store names:
' JunkDirNames:=False, _
' do not store entries for the directories themselves:
' NoDirEntries:=True _
' include files only if match one of these patterns:
' i_IncludeFiles:="*.vbp *.frm", _
' exclude files that match these patterns:
' x_ExcludeFiles:="*.bas", _
' Verboseness:=Verbose, _
' IncludeEarlierThanDate:="2004-4-1", _
' RecurseSubdirectories:=r_RecurseIntoSubdirectories, _
' Encrypt:=False, _
' ArchiveComment:=False
' date example (format mmddyyyy or yyyy-mm-dd):
' ExcludeEarlierThanDate:="2002-12-10", _
' split example (can only create, can't update split archives in VB):
' SplitSize:="110k", _
' Delete
' If Not SetZipOptions(ZOPT, _
' ZipMode:=Delete) Then
' a problem if get here - error message already displayed so just exit
Exit Sub
End If
'-- Select Some Files - Wildcards Are Supported
'-- Change The Paths Here To Your Directory
'-- And Files!!!
' default to current (VB project) directory and zip up project files
zZipArchiveName = "MyFirst.zip"
' Files to zip - use one of below
'---------------
' Example using file name array
' Store the file paths
' Change Dim of zFiles at top of VBZipBas.bas if more than 100 files
' See note at top of VBZipBas.bas for limit on number of files
' zArgc = 2 ' Number Of file paths below
' zZipFileNames.zFiles(1) = "*.bas"
' zZipFileNames.zFiles(2) = "*.frm"
'---------------
' Example using file list string
' List of files to zip as string of names with space between
' Set zArgc = 0 as not using array
' Using string for file list avoids above array limit
zArgc = 0
' ReDim FilesToZip(1) ' dim to number of files below
' FilesToZip(1) = "x:*.*"
ReDim FilesToZip(2) ' dim to number of files below
FilesToZip(1) = "*.bas"
FilesToZip(2) = "*.frm"
' Build string of file names
' Best to put double quotes around each in case of spaces
strZipFileNames = ""
For i = 1 To UBound(FilesToZip)
strZipFileNames = strZipFileNames & """" & FilesToZip(i) & """ "
Next
'---------------
'-- Go Zip Them Up!
retcode = VBZip32()
'-- Display The Returned Code Or Error!
Print "Return code:" & Str(retcode)
End Sub
Private Sub Form_Load()
Me.Show
Print "Click me!"
End Sub
|
