Hvordan bruke en CGZIP fil i Visual Basic 6

Den CGZIP filen er komprimert med Zip32.dll. Windows-filer og mapper kan komprimeres og ukomprimert. En komprimert fil lagres med utvidelsen ".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å maskinen din, fordi de er fordelt med mange bruksområder; men hvis du ikke gjør det, de er tilgjengelig for gratis nedlasting på internett.

Bruksanvisning

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

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

Private Declare Function Wiz

SingleEntryUnzip Lib "unzip32.dll"
(ByVal IFNc As Long, ByRef ifnv Som UNZIPnames,
ByVal xfnc så lenge, ByRef xfnv Som UNZIPnames,
dcll Som DCLIST, Userf As USERFUNCTION) As Long

Definer en offentlig glidelås og en unzip funksjon i denne koden modulen. Navn denne modulen "MainDLL.bas."

2 Legg til en ny klassemodul til prosjektet for zipping og en for utpakking. Disse to klassene referere publikum zip og pakk definert innenfor funksjoner "MainDLL.bas." Navngi dem "CGZipFiles" og "CGUnzipFiles." Lagre og kompilere ActiveX DLL-prosjekt, kalt "CGZipUnzip", til "CGZipUnzip.dll."

3 Opprett et nytt Standard EXE Visual Basic-prosjekt. Legg 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 referere 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 zip-filen navn, 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 CGZipUnzip
med oZip
.ZipFileName = "\ MYZIP.ZIP"
.AddFile App.Path & "*. *"
Hvis .MakeZipFile <> 0 Then

MsgBox .GetLastMessage
End If

End With
Sett oZip = Nothing