Il file CGZIP è stato compresso utilizzando Zip32.dll . I file e le cartelle di Windows possono essere compressi e non compressi . Un file compresso viene salvato con l' estensione " . Zip . " Le Zip32.dll moduli e Unzip32.dll sono file DLL C standard. Questi due DLL sono distribuiti da Info-ZIP . Info-ZIP è un gruppo di sviluppatori che forniscono versioni gratuite di programmi di utilità zip e unzip . Si può già avere Zip32.dll e Unzip32.dll sulla vostra macchina , perché sono distribuiti con molte applicazioni , ma se non lo fai , sono disponibili per il download gratuito su Internet . Istruzioni
1

Aprire un nuovo progetto DLL ActiveX di Visual Basic . Creare un modulo di codice " . Bas ", con riferimento alle funzioni disponibili nei file zip32.dll e unzip32.dll .

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

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

Definire una zip pubblica e una funzione di decompressione all'interno di questo modulo di codice . Il nome di questo modulo " MainDLL.bas ".
2

Aggiungi un nuovo modulo di classe al progetto per zippare e uno per la decompressione . Queste due classi di riferimento la zip pubblico e funzioni definite all'interno di decomprimere " MainDLL.bas . " Loro " CGZipFiles " e " CGUnzipFiles ". Salvare e compilare il progetto DLL ActiveX , chiamato " CGZipUnzip " Name , a " CGZipUnzip.dll ".
3

Creare un nuovo progetto Visual Basic EXE standard . Aggiungere un riferimento a " CGZipUnzip.dll " selezionando "Progetto" , " Riferimenti" e selezionando la casella accanto a CGZipUnzip .
4

dichiarare una variabile oggetto per contenere un riferimento a " CGZipUnzip . "Usa l'oggetto di riferimento ciascuna delle chiamate di funzione disponibile dal zip32.dll e unzip32.dll definito il nuovo" "dll ActiveX CGZipUnzip . Il codice seguente definisce un riferimento alla DLL " CGZipUnzip " , imposta il nome del file zip, definisce quali file devono essere inclusi nel file zip e crea il file zip . Se ci sono errori durante la creazione della zip , questi vengono visualizzati in una finestra di messaggio per l'utente.

Dim oZip Come CGZipUnzipWith oZip.ZipFileName = " \\ MYZIP.ZIP " . AddFile App.Path & , . . . " \\ * * " Se MakeZipFile < > 0 ThenMsgBox GetLastMessageEnd IfEnd WithSet oZip = Nothing