"Fossies" - the Fresh Open Source Software Archive 
Member "vb/vbunzip.frm" (15 Jan 2009, 12355 Bytes) of package /windows/misc/unz600dn.zip:
As a special service "Fossies" has tried to format the requested text file into HTML format (style:
standard) with prefixed line numbers.
Alternatively you can here
view or
download the uninterpreted source code file.
1 VERSION 5.00
2 Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.1#0"; "COMDLG32.OCX"
3 Begin VB.Form VBUnzFrm
4 AutoRedraw = -1 'True
5 Caption = "VBUnzFrm"
6 ClientHeight = 4785
7 ClientLeft = 780
8 ClientTop = 525
9 ClientWidth = 9375
10 BeginProperty Font
11 Name = "Fixedsys"
12 Size = 9
13 Charset = 0
14 Weight = 400
15 Underline = 0 'False
16 Italic = 0 'False
17 Strikethrough = 0 'False
18 EndProperty
19 LinkTopic = "VBUnzFrm"
20 ScaleHeight = 4785
21 ScaleWidth = 9375
22 StartUpPosition = 1 'Fenstermitte
23 Begin VB.CheckBox checkOverwriteAll
24 Alignment = 1 'Rechts ausgerichtet
25 Caption = "Overwrite all?"
26 BeginProperty Font
27 Name = "MS Sans Serif"
28 Size = 9.75
29 Charset = 0
30 Weight = 400
31 Underline = 0 'False
32 Italic = 0 'False
33 Strikethrough = 0 'False
34 EndProperty
35 Height = 255
36 Left = 240
37 TabIndex = 5
38 Top = 1320
39 Width = 4425
40 End
41 Begin VB.TextBox txtZipFName
42 BeginProperty Font
43 Name = "Courier New"
44 Size = 9.75
45 Charset = 0
46 Weight = 400
47 Underline = 0 'False
48 Italic = 0 'False
49 Strikethrough = 0 'False
50 EndProperty
51 Height = 375
52 Left = 4440
53 TabIndex = 1
54 Top = 120
55 Width = 4335
56 End
57 Begin VB.TextBox txtExtractRoot
58 BeginProperty Font
59 Name = "Courier New"
60 Size = 9.75
61 Charset = 0
62 Weight = 400
63 Underline = 0 'False
64 Italic = 0 'False
65 Strikethrough = 0 'False
66 EndProperty
67 Height = 375
68 Left = 4440
69 TabIndex = 4
70 Top = 720
71 Width = 4335
72 End
73 Begin VB.CommandButton cmdStartUnz
74 Caption = "Start"
75 Height = 495
76 Left = 240
77 TabIndex = 6
78 Top = 1800
79 Width = 3255
80 End
81 Begin VB.TextBox txtMsgOut
82 BeginProperty Font
83 Name = "Courier New"
84 Size = 9
85 Charset = 0
86 Weight = 400
87 Underline = 0 'False
88 Italic = 0 'False
89 Strikethrough = 0 'False
90 EndProperty
91 Height = 2175
92 Left = 240
93 Locked = -1 'True
94 MultiLine = -1 'True
95 ScrollBars = 3 'Beides
96 TabIndex = 8
97 TabStop = 0 'False
98 Top = 2520
99 Width = 8895
100 End
101 Begin VB.CommandButton cmdQuitVBUnz
102 Cancel = -1 'True
103 Caption = "Quit"
104 Height = 495
105 Left = 6240
106 TabIndex = 7
107 Top = 1800
108 Width = 2895
109 End
110 Begin VB.CommandButton cmdSearchZfile
111 Caption = "..."
112 BeginProperty Font
113 Name = "MS Sans Serif"
114 Size = 8.25
115 Charset = 0
116 Weight = 400
117 Underline = 0 'False
118 Italic = 0 'False
119 Strikethrough = 0 'False
120 EndProperty
121 Height = 375
122 Left = 8760
123 TabIndex = 2
124 Top = 120
125 Width = 375
126 End
127 Begin MSComDlg.CommonDialog CommonDialog1
128 Left = 4800
129 Top = 1800
130 _ExtentX = 847
131 _ExtentY = 847
132 _Version = 393216
133 End
134 Begin VB.Label Label1
135 Caption = "Complete path-name of Zip-archive:"
136 BeginProperty Font
137 Name = "MS Sans Serif"
138 Size = 9.75
139 Charset = 0
140 Weight = 400
141 Underline = 0 'False
142 Italic = 0 'False
143 Strikethrough = 0 'False
144 EndProperty
145 Height = 255
146 Left = 240
147 TabIndex = 0
148 Top = 120
149 Width = 3855
150 End
151 Begin VB.Label Label2
152 Caption = "Extract archive into directory:"
153 BeginProperty Font
154 Name = "MS Sans Serif"
155 Size = 9.75
156 Charset = 0
157 Weight = 400
158 Underline = 0 'False
159 Italic = 0 'False
160 Strikethrough = 0 'False
161 EndProperty
162 Height = 255
163 Left = 240
164 TabIndex = 3
165 Top = 720
166 Width = 3855
167 End
168 End
169 Attribute VB_Name = "VBUnzFrm"
170 Attribute VB_GlobalNameSpace = False
171 Attribute VB_Creatable = False
172 Attribute VB_PredeclaredId = True
173 Attribute VB_Exposed = False
174 Option Explicit
175
176 '---------------------------------------------------
177 '-- Please Do Not Remove These Comment Lines!
178 '----------------------------------------------------------------
179 '-- Sample VB 5 / VB 6 code to drive unzip32.dll
180 '-- Contributed to the Info-ZIP project by Mike Le Voi
181 '--
182 '-- Contact me at: mlevoi@modemss.brisnet.org.au
183 '--
184 '-- Visit my home page at: http://modemss.brisnet.org.au/~mlevoi
185 '--
186 '-- Use this code at your own risk. Nothing implied or warranted
187 '-- to work on your machine :-)
188 '----------------------------------------------------------------
189 '--
190 '-- This Source Code Is Freely Available From The Info-ZIP Project
191 '-- Web Server At:
192 '-- ftp://ftp.info-zip.org/pub/infozip/infozip.html
193 '--
194 '-- A Very Special Thanks To Mr. Mike Le Voi
195 '-- And Mr. Mike White
196 '-- And The Fine People Of The Info-ZIP Group
197 '-- For Letting Me Use And Modify Their Orginal
198 '-- Visual Basic 5.0 Code! Thank You Mike Le Voi.
199 '-- For Your Hard Work In Helping Me Get This To Work!!!
200 '---------------------------------------------------------------
201 '--
202 '-- Contributed To The Info-ZIP Project By Raymond L. King.
203 '-- Modified June 21, 1998
204 '-- By Raymond L. King
205 '-- Custom Software Designers
206 '--
207 '-- Contact Me At: king@ntplx.net
208 '-- ICQ 434355
209 '-- Or Visit Our Home Page At: http://www.ntplx.net/~king
210 '--
211 '---------------------------------------------------------------
212 '--
213 '-- Modified August 17, 1998
214 '-- by Christian Spieler
215 '-- (added sort of a "windows oriented" user interface)
216 '-- Modified May 11, 2003
217 '-- by Christian Spieler
218 '-- (use late binding for referencing the common dialog)
219 '-- Modified December 30, 2008
220 '-- by Ed Gordon
221 '-- (add Overwrite_All checkbox and resizing of txtMsgOut
222 '-- output box)
223 '-- Modified January 03, 2009
224 '-- by Christian Spieler
225 '-- (fixed tab navigation sequence, changed passing of
226 '-- "overwrite-all" setting to use existing option flags,
227 '-- cleared all msg buffer at start of every DLL call,
228 '-- removed code that is not supported by VB5)
229 '--
230 '---------------------------------------------------------------
231
232 Private mCommDlgCtrl As Object
233
234 Private Sub cmdStartUnz_Click()
235
236 Dim MsgTmp As String
237
238 Cls
239 txtMsgOut.Text = ""
240
241 '-- Init Global Message Variables
242 uZipInfo = ""
243 uZipMessage = ""
244 uZipNumber = 0 ' Holds The Number Of Zip Files
245
246 '-- Select UNZIP32.DLL Options - Change As Required!
247 ' 1 = Always Overwrite Files
248 uOverWriteFiles = Me.checkOverwriteAll.Value
249 ' 1 = Prompt To Overwrite
250 uPromptOverWrite = IIf(uOverWriteFiles = 0, 1, 0)
251 uDisplayComment = 0 ' 1 = Display comment ONLY!!!
252 uHonorDirectories = 1 ' 1 = Honour Zip Directories
253
254 '-- Select Filenames If Required
255 '-- Or Just Select All Files
256 uZipNames.uzFiles(0) = vbNullString
257 uNumberFiles = 0
258
259 '-- Select Filenames To Exclude From Processing
260 ' Note UNIX convention!
261 ' vbxnames.s(0) = "VBSYX/VBSYX.MID"
262 ' vbxnames.s(1) = "VBSYX/VBSYX.SYX"
263 ' numx = 2
264
265 '-- Or Just Select All Files
266 uExcludeNames.uzFiles(0) = vbNullString
267 uNumberXFiles = 0
268
269 '-- Change The Next 2 Lines As Required!
270 '-- These Should Point To Your Directory
271 uZipFileName = txtZipFName.Text
272 uExtractDir = txtExtractRoot.Text
273 If Len(uExtractDir) <> 0 Then
274 uExtractList = 0 ' 0 = Extract if dir specified
275 Else
276 uExtractList = 1 ' 1 = List Contents Of Zip
277 End If
278
279 '-- Let's Go And Unzip Them!
280 Call VBUnZip32
281
282 '-- Tell The User What Happened
283 If Len(uZipMessage) > 0 Then
284 MsgTmp = uZipMessage
285 uZipMessage = ""
286 End If
287
288 '-- Display Zip File Information.
289 If Len(uZipInfo) > 0 Then
290 MsgTmp = MsgTmp & vbNewLine & "uZipInfo is:" & vbNewLine & uZipInfo
291 uZipInfo = ""
292 End If
293
294 '-- Display The Number Of Extracted Files!
295 If uZipNumber > 0 Then
296 MsgTmp = MsgTmp & vbNewLine & "Number Of Files: " & Str(uZipNumber)
297 End If
298
299 txtMsgOut.Text = txtMsgOut.Text & MsgTmp & vbNewLine
300
301
302 End Sub
303
304
305 Private Sub Form_Load()
306
307 '-- To work around compatibility issues between different versions of
308 '-- Visual Basic, we use a late bound untyped object variable to reference
309 '-- the common dialog ActiveX-control object at runtime.
310 On Error Resume Next
311 Set mCommDlgCtrl = CommonDialog1
312 On Error GoTo 0
313 '-- Disable the "call openfile dialog" button, when the common dialog
314 '-- object is not available
315 cmdSearchZfile.Visible = Not (mCommDlgCtrl Is Nothing)
316
317 txtZipFName.Text = vbNullString
318 txtExtractRoot.Text = vbNullString
319 Me.Show
320
321 End Sub
322
323 Private Sub Form_Resize()
324 Dim Wid As Single
325 Dim Hei As Single
326
327 Wid = Me.Width - 600 ' 9495 - 8895
328 If Wid < 2000 Then Wid = 2000
329 txtMsgOut.Width = Wid
330
331 Hei = Me.Height - 3120 ' 5295 - 2175
332 If Hei < 1000 Then Hei = 1000
333 txtMsgOut.Height = Hei
334
335 End Sub
336
337 Private Sub Form_Unload(Cancel As Integer)
338 '-- remove runtime reference to common dialog control object
339 Set mCommDlgCtrl = Nothing
340 End Sub
341
342
343 Private Sub cmdQuitVBUnz_Click()
344 Unload Me
345 End Sub
346
347
348 Private Sub cmdSearchZfile_Click()
349 If mCommDlgCtrl Is Nothing Then Exit Sub
350 mCommDlgCtrl.CancelError = False
351 mCommDlgCtrl.DialogTitle = "Open Zip-archive"
352 '-- The following property is not supported in the first version(s)
353 '-- of the common dialog controls. But this feature is of minor
354 '-- relevance in our context, so we simply skip over the statement
355 '-- in case of errors.
356 On Error Resume Next
357 mCommDlgCtrl.DefaultExt = ".zip"
358 On Error GoTo err_deactivateControl
359 '-- Initialize the file name with the current setting of the filename
360 '-- text box.
361 mCommDlgCtrl.FileName = txtZipFName.Text
362 '-- Provide reasonable filter settings for selecting Zip archives.
363 mCommDlgCtrl.Filter = "Zip archives (*.zip)|*.zip|All files (*.*)|*.*"
364 mCommDlgCtrl.ShowOpen
365 '-- In case the user closed the dialog via cancel, the FilenName
366 '-- property contains its initial setting and no change occurs.
367 txtZipFName.Text = mCommDlgCtrl.FileName
368 Exit Sub
369
370 err_deactivateControl:
371 '-- Emit a warning message.
372 MsgBox "Unexpected error #" & CStr(Err.Number) & " in call to ComDLG32" _
373 & " FileOpen dialog:" & vbNewLine & Err.Description & vbNewLine _
374 & vbNewLine & "The version of the COMDLG32.OCX control installed" _
375 & " on your system seems to be too old. Please consider upgrading" _
376 & " to a recent release of the Common Dialog ActiveX control." _
377 & vbNewLine & "The ""Choose File from List"" dialog functionality" _
378 & " has been disabled for this session.", _
379 vbCritical + vbOKOnly, "FileOpen Dialog incompatible"
380 '-- Deactivate the control and prevent further usage in this session.
381 Set mCommDlgCtrl = Nothing
382 cmdSearchZfile.Enabled = False
383 End Sub
384