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