O arquivo CGZIP foi comprimido utilizando Zip32.dll . Arquivos e pastas do Windows pode ser compactado e descompactado. Um arquivo compactado é salvo com a extensão ". Zip . " Os módulos Zip32.dll e Unzip32.dll são arquivos DLL C padrão. Estas duas DLLs são distribuídos por Info- ZIP. Info-ZIP é um grupo de desenvolvedores que oferecem versões gratuitas de o compactar e descompactar utilitários. Você pode já ter Zip32.dll e Unzip32.dll em sua máquina , porque eles são distribuídos com muitas aplicações , no entanto, se você não fizer isso, eles estão disponíveis para download gratuito na Internet. Instruções
1

Abra um novo projeto Visual Basic ActiveX DLL. Criar um módulo de código . " Bas ", com referências para as funções disponíveis na zip32.dll e arquivos unzip32.dll .

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

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

Definir um zip público e uma função de descompactação dentro deste módulo de código. Nome este módulo " MainDLL.bas ".
2

Adicionar um novo módulo de classe ao projeto para fechar e outra para descompactar . Estas duas classes referenciar o público zip e descompacte funções definidas dentro " MainDLL.bas . " Nome-los " CGZipFiles " e " CGUnzipFiles . " Salvar e compilar o projeto DLL ActiveX , chamado " CGZipUnzip " , para " CGZipUnzip.dll ".
3

Crie um novo projeto Visual Basic standard EXE. Adicione uma referência ao " CGZipUnzip.dll " , selecionando " Project", "Referências" e marcar a caixa ao lado de CGZipUnzip .
4

Declare uma variável de objeto para manter uma referência ao " CGZipUnzip . " Use esse objeto para fazer referência a cada uma das chamadas de função disponível no zip32.dll e unzip32.dll definido no novo" CGZipUnzip " dll ActiveX . O código a seguir define uma referência para a DLL " CGZipUnzip " , define o nome do arquivo zip , define quais arquivos devem ser incluídos no arquivo zip e cria o arquivo zip. Se houver algum erro durante a criação do zip , eles são exibidos em uma caixa de mensagem para o usuário.

Dim oZip Como CGZipUnzipWith oZip.ZipFileName = "\\ MYZIP.ZIP " . AddFile App.Path & ; " . \\ * * " Se MakeZipFile <> 0 ThenMsgBox GetLastMessageEnd IfEnd Constituído oZip = Nothing

. .