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