The CGZIP filen har komprimerats med Zip32.dll . Windows-filer och mappar kan komprimeras och okomprimerad . En komprimerad fil sparas med filändelsen " . Zip . " De moduler Zip32.dll och Unzip32.dll är standard C DLL-filer . Dessa två DLL-filer distribueras av Info - ZIP . Info - ZIP är en grupp av utvecklare som ger fria versioner av zip och unzip verktyg. Du kanske redan har Zip32.dll och Unzip32.dll på din maskin eftersom de fördelas med många tillämpningar , men om du inte gör det , de är tillgängliga för gratis nedladdning på Internet . Instruktioner
1
Öppna en ny ActiveX DLL Visual Basic-projekt . Skapa en " . Bas " kodmodulen med hänvisningar till de funktioner som finns i de zip32.dll och unzip32.dll filer .
Private Declare Function ZpArchive Lib " zip32.dll " _ ( ByVal argc As Long , ByVal funame As String , ByRef argv Som ZIPnames ) As 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 ) As Long
Definiera en offentlig dragkedja och en unzip funktion inom denna kodmodul . Namnge denna modul " MainDLL.bas . "
2
Lägg till en ny klass modul till projektet för zippa och en för unzipping . Dessa två klasser referens allmänheten zip och packa funktioner definierade i " MainDLL.bas . " Name dem " CGZipFiles " och " CGUnzipFiles . " Spara och kompilera ActiveX DLL -projektet , som heter " CGZipUnzip " , till " CGZipUnzip.dll . " Addera 3
Skapa ett nytt Standard-EXE Visual Basic-projekt . Lägg till en hänvisning till " CGZipUnzip.dll " genom att välja " Project " , "Referenser " och markera rutan bredvid CGZipUnzip .
4
Deklarera ett objekt variabel för att hålla en hänvisning till " CGZipUnzip . " Använd det objektet för att referera varje funktionsanrop tillgängliga från zip32.dll och unzip32.dll definieras i den nya " CGZipUnzip " ActiveX DLL . I följande kod definieras en hänvisning till " CGZipUnzip " DLL , sätter zip-filnamn , definierar vilka filer som ska ingå i zip-filen och skapar zip-filen . Om det finns några fel under skapandet av zip , visas de i ett meddelande visas för användaren .
Dim oZip Som CGZipUnzipWith oZip.ZipFileName = " \\ MYZIP.ZIP " . AddFile App.Path & , . . " . \\ * * " Om MakeZipFile < > 0 ThenMsgBox GetLastMessageEnd IfEnd WithSet oZip = Nothing
