El archivo CGZIP se ha comprimido usando zip32.dll . Archivos y carpetas de Windows pueden ser comprimidos y sin comprimir. Un archivo comprimido se guarda con la extensión ". Zip. " Los zip32.dll y unzip32.dll módulos son archivos DLL de C estándar. Estos dos archivos DLL se distribuyen por Info -ZIP . Info- ZIP es un grupo de desarrolladores que ofrecen versiones gratuitas de los servicios postales y de descompresión . Es posible que ya tenga zip32.dll y unzip32.dll en su máquina , ya que se distribuyen con muchas aplicaciones , sin embargo , si no lo hace , están disponibles para su descarga gratuita en Internet. Instrucciones
1

Abra un nuevo proyecto DLL ActiveX de Visual Basic . Crear un archivo ". Bas" módulo de código con referencias a las funciones disponibles en los archivos zip32.dll y unzip32.dll .

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

Private función declare Wiz_SingleEntryUnzip Lib " unzip32.dll " _ ( ByVal IFNC As Long , ByRef ifnv Como UNZIPnames , _ByVal xfnc As Long , ByRef xfnv Como UNZIPnames , _dcll Como DCLIST , Userf Como USERFUNCTION ) As Long

Definir una postal pública y una función de descomprimir dentro de este módulo de código . Nombra este módulo " MainDLL.bas . "
2

Añadir un nuevo módulo de clase al proyecto para comprimir y otra para descomprimir . Estas dos clases de referencia de la postal pública y descomprimir las funciones definidas en " MainDLL.bas . " Nombre " ellos " y " CGZipFiles CGUnzipFiles . " Guardar y compilar el proyecto DLL ActiveX , llamado " CGZipUnzip " , a " CGZipUnzip.dll . "
3

Crear un nuevo proyecto EXE estándar en Visual Basic . Agregue una referencia al " CGZipUnzip.dll " seleccionando "Proyecto" , "Referencias " y marcando la casilla junto a CGZipUnzip .
4

Declarar una variable de objeto de mantener una referencia a " CGZipUnzip . "Usar ese objeto para hacer referencia a cada una de las llamadas de función disponible desde el zip32.dll y unzip32.dll definido en el nuevo " CGZipUnzip "dll ActiveX. El código siguiente define una referencia a la DLL " CGZipUnzip " , establece el nombre del archivo zip, define qué archivos se van a incluir en el archivo zip y crea el archivo zip. Si se produce algún error durante la creación de la cremallera , se muestran en un cuadro de mensaje para el usuario.

OZIP As CGZipUnzipWith oZip.ZipFileName = " \\ myzip.zip " . AddFile app.Path y ; . . . " \\ * * " Si MakeZipFile < > 0 ThenMsgBox GetLastMessageEnd IfEnd WithSet OZIP = Nothing