Den CGZIP filen har blitt komprimert med Zip32.dll . Windows-filer og mapper kan komprimeres og ukomprimert . En komprimert fil lagres med filendelsen ". Zip . " Modulene Zip32.dll og Unzip32.dll er standard C DLL-filer . Disse to DLL-filer er distribuert av Info- ZIP . Info- ZIP er en gruppe utviklere som tilbyr gratis versjoner av zip og unzip verktøy. Du har kanskje allerede Zip32.dll og Unzip32.dll på din maskin fordi de er fordelt med mange programmer , men hvis du ikke gjør det , de er tilgjengelig for gratis nedlasting på internett . Instruksjoner
en

Åpne en ny ActiveX DLL Visual Basic-prosjekt . Lag en " . Bas " kodemodul med referanser til funksjonene som er tilgjengelige i de zip32.dll og unzip32.dll filer.

Private Declare Function ZpArchive Lib " zip32.dll " _ ( ByVal argc As Long , ByVal funame As String , ByRef argv Som ZIPnames ) Som Long

Private Declare Function Wiz_SingleEntryUnzip Lib " unzip32.dll " _ ( ByVal IFNc As Long , ByRef ifnv Som UNZIPnames , _ByVal xfnc As Long , ByRef xfnv Som UNZIPnames , _dcll Som DCLIST , Userf Som USERFUNCTION ) Som Long

Definer en offentlig zip og unzip funksjon innenfor denne koden modulen. Navngi denne modulen " MainDLL.bas . "
2

Legg til en ny klasse modul til prosjektet for zipping og en for Derigjennom . Disse to klassene referansen publikum zip og pakk funksjoner definert innenfor " MainDLL.bas . " Name dem " CGZipFiles " og " CGUnzipFiles ." Lagre og sammenstille ActiveX DLL-prosjekt , kalt " CGZipUnzip ", til " CGZipUnzip.dll . "
3

Opprett en ny Standard EXE Visual Basic-prosjekt . Legg til en referanse til " CGZipUnzip.dll " ved å velge " Project" , "Referanser " og merke av i boksen ved siden av CGZipUnzip .
4

Erklærer et objekt variabel til å holde en referanse til " CGZipUnzip . " Bruk dette objektet til å referere til hver av de funksjonskall tilgjengelig fra zip32.dll og unzip32.dll definert i den nye" CGZipUnzip " ActiveX dll . Følgende kode definerer en referanse til " CGZipUnzip " DLL, setter på zip-filen , definerer hvilke filer som skal inngå i zip-filen og oppretter zip-filen. Hvis det er noen feil under opprettelsen av zip, vises de i en meldingsboks for brukeren.

Dim oZip Som CGZipUnzipWith oZip.ZipFileName = "\\ MYZIP.ZIP " . AddFile App.Path & ; . . ». \\ * *" Hvis MakeZipFile < > 0 ThenMsgBox GetLastMessageEnd IfEnd WithSet oZip = Ingenting