The CGZIP filen er blevet komprimeret ved hjælp Zip32.dll . Windows-filer og mapper kan komprimeres som ukomprimerede . En komprimeret fil gemmes med filtypenavnet " . Zip ". De moduler Zip32.dll og Unzip32.dll er standard C DLL-filer . Disse to DLL distribueres af Info- ZIP . Info- ZIP er en gruppe af udviklere , der giver gratis versioner af zip og unzip forsyningsselskaber. Du har måske allerede Zip32.dll og Unzip32.dll på din maskine, fordi de er fordelt med mange anvendelsesmuligheder , men hvis du ikke gør det , de er tilgængelige til gratis download på internettet. Instruktioner
1
Åbn en ny ActiveX DLL Visual Basic projekt. Opret en " . Bas " kodemodulet med referencer til de tilgængelige funktioner i zip32.dll og unzip32.dll filer.
Private Erklær Funktion ZpArchive Lib " zip32.dll " _ ( ByVal argc As Long , ByVal funame As String , ByRef argv Som ZIPnames ) As Long
Private Erklær Funktion 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 ) As Long
Definer en offentlig lynlås og en unzip funktion inden denne kode modul. Navngiv dette modul " MainDLL.bas ".
2
Tilføj en ny klasse modul til projektet for zippe og en for unzipping . Disse to klasser henvisning til den offentlige zip og unzip funktioner defineret inden " MainDLL.bas . " Navn dem " CGZipFiles " og " CGUnzipFiles ." Gem og kompilere ActiveX DLL -projekt , kaldet " CGZipUnzip " , til " CGZipUnzip.dll . "
3
Opret en ny standard-EXE Visual Basic projekt. Tilføj en henvisning til " CGZipUnzip.dll " ved at vælge " Project" , " Referencer ", og markere feltet ved siden af CGZipUnzip .
4
Erklær et objekt variabel til at holde en henvisning til " CGZipUnzip . " Brug objektet til hvert enkelt af funktionen kalder tilgængelig fra zip32.dll og unzip32.dll defineret i den nye" CGZipUnzip " ActiveX dll . Følgende kode definerer en henvisning til " CGZipUnzip " DLL sætter zipfilnavn definerer hvilke filer, der skal indgå i zip-filen og opretter zip-filen . Hvis der er nogen fejl under oprettelsen af zip , vises de i en besked boks til brugeren.
Dim oZip Som CGZipUnzipWith oZip.ZipFileName = "\\ MYZIP.ZIP " . AddFile App.Path & ; . . . " \\ * * " Hvis MakeZipFile < > 0 ThenMsgBox GetLastMessageEnd IfEnd WithSet oZip = Nothing