De CGZIP bestand is gecomprimeerd met zip32.dll . Windows-bestanden en mappen kunnen worden gecomprimeerd en ongecomprimeerd . Een gecomprimeerd bestand wordt opgeslagen met de extensie ' . Zip . ' De modules zip32.dll en unzip32.dll zijn standaard C DLL-bestanden . Deze twee DLL's worden verdeeld door Info - ZIP . Info - ZIP is een groep ontwikkelaars die gratis versies van de zip en unzip hulpprogramma's bieden . U hebt wellicht al zip32.dll en unzip32.dll op uw machine, omdat ze worden verspreid met vele toepassingen , maar als je dat niet doet , ze zijn gratis te downloaden op het internet . Instructies 1 Open een nieuw ActiveX DLL Visual Basic -project . Maak een " bas ". Code module met verwijzingen naar de functies die beschikbaar zijn in de zip32.dll en unzip32.dll bestanden . Private Declare Function ZpArchive Lib " zip32.dll " _ ( ByVal argc As Long , ByVal funame als Koord , ByRef argv Als ZIPnames ) als Long Private Declare Function Wiz_SingleEntryUnzip Lib " unzip32.dll " _ ( ByVal ifnc zoals lang, ByRef ifnv Zoals UNZIPnames , _ByVal xfnc zoals lang, ByRef xfnv Zoals UNZIPnames , _dcll Zoals DCLIST , Userf Als USERFUNCTION ) As Long Definieer een openbare rits en een unzip functie binnen deze code module . Noem deze module " MainDLL.bas . " Kopen van 2 Voeg een nieuwe klasse module om het project te zippen en een voor uitpakken . Deze twee klassen verwijzing het publiek zip en unzip functies gedefinieerd binnen " MainDLL.bas . " Name hen " CGZipFiles " en " CGUnzipFiles . " Opslaan en compileren het ActiveX DLL -project , genaamd " CGZipUnzip " , om " CGZipUnzip.dll . " 3 Maak een nieuw standaard-EXE Visual Basic -project . Voeg een verwijzing naar " CGZipUnzip.dll " door " Project " , " Referenties " selecteren en het vakje naast CGZipUnzip . 4 Verklaar een object variabele om een verwijzing naar " houden CGZipUnzip . " Gebruik dat object te verwijzen naar elk van de functie roept verkrijgbaar bij de zip32.dll en unzip32.dll gedefinieerd in de nieuwe " CGZipUnzip " ActiveX dll . De volgende code definieert een verwijzing naar de " CGZipUnzip " DLL , zet het zip-bestand naam , definieert welke bestanden moeten worden opgenomen in het zip- bestand en maakt het zip-bestand . Als er fouten tijdens het maken van de zip , worden ze weergegeven in een bericht aan de gebruiker . Dim oZip Zoals CGZipUnzipWith oZip.ZipFileName = " \\ mijnzip.zip " . AddFile App.path & ; . . ' . \\ * * " Als MakeZipFile < > 0 ThenMsgBox GetLastMessageEnd IfEnd werkgroep, oZip = Nothing
|