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