Il file CGZIP è stata compressa utilizzando zip32. Le cartelle e i file di Windows possono essere compressi e non compressi. Un file compresso viene salvato con l'estensione ". zip." I moduli zip32 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 della zip e unzip Utility. Si può già avere zip32 e unzip32 sulla vostra macchina perché sono distribuiti con molte applicazioni; Tuttavia, se non lo fai, sono disponibili per il download gratuito su Internet.

Istruzioni

1

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

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

Privato di dichiarare funzione WizSingleEntryUnzip 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 un pubblico zip e una funzione di decompressione all'interno di questo modulo di codice. Nome questo modulo "MainDLL.bas."

2

Aggiungere un nuovo modulo di classe al progetto per zippare e uno per la decompressione. Queste due classi la zip pubblica di riferimento e decomprimere le funzioni definite all'interno di "MainDLL.bas." I nomi "CGZipFiles" e "CGUnzipFiles." Salvare e compilare il progetto di DLL ActiveX, denominato "CGZipUnzip", a "CGZipUnzip.dll."

3

Creare un nuovo progetto di 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." Utilizzare tale oggetto per fare riferimento a che ciascuno della funzione chiama disponibile dal zip32 e unzip32 definiti nella nuova dll ActiveX "CGZipUnzip". Il codice seguente definisce un riferimento a DLL "CGZipUnzip", imposta il nome del file zip, definisce quali file sono da includere nel file zip e crea il file zip. Se ci sono eventuali errori durante la creazione della zip, vengono visualizzati in una finestra di messaggio per l'utente.

Dim oZip come CGZipUnzip
Con oZip
. ZipFileName = "\MYZIP. ZIP"
. AddFile app. Path & "*. *"
Se. MakeZipFile <> 0 quindi

MsgBox .GetLastMessage
End If

Terminare con
Impostare oZip = Nothing