home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 9 Archive / 09-Archive.zip / unzip532.zip / windll / vb / vbunzip.frm < prev    next >
Text File  |  1997-10-31  |  2KB  |  81 lines
  1. VERSION 5.00
  2. Begin VB.Form VBUnzFrm 
  3.    AutoRedraw      =   -1  'True
  4.    Caption         =   "VBUnzFrm"
  5.    ClientHeight    =   3195
  6.    ClientLeft      =   780
  7.    ClientTop       =   525
  8.    ClientWidth     =   10425
  9.    BeginProperty Font 
  10.       Name            =   "Fixedsys"
  11.       Size            =   9
  12.       Charset         =   0
  13.       Weight          =   400
  14.       Underline       =   0   'False
  15.       Italic          =   0   'False
  16.       Strikethrough   =   0   'False
  17.    EndProperty
  18.    LinkTopic       =   "VBUnzFrm"
  19.    ScaleHeight     =   3195
  20.    ScaleWidth      =   10425
  21. End
  22. Attribute VB_Name = "VBUnzFrm"
  23. Attribute VB_GlobalNameSpace = False
  24. Attribute VB_Creatable = False
  25. Attribute VB_PredeclaredId = True
  26. Attribute VB_Exposed = False
  27. Option Explicit
  28. '
  29. ' Sample VB 5 code to drive unzip32.dll
  30. ' Contributed to the Info-Zip project by Mike Le Voi
  31. '
  32. ' Contact me at: mlevoi@modemss.brisnet.org.au
  33. '
  34. ' Visit my home page at: http://modemss.brisnet.org.au/~mlevoi
  35. '
  36. ' Use this code at your own risk. Nothing implied or warranted
  37. ' to work on your machine :-)
  38. '
  39.  
  40.  
  41. Private Sub Form_Click()
  42.     Dim prom%, over%, mess%, dirs%, numf&, numx&
  43.     Dim zipfile$, unzipdir$
  44.  
  45.     crlf = Chr$(13) + Chr$(10)
  46.     Cls
  47.     ' init global message variables
  48.     vbzipinf = ""
  49.     vbzipnum = 0
  50.     ' select unzip options - change as required!
  51.     prom = 1  ' 1=prompt to overwrite
  52.     over = 0  ' 1=always overwrite files
  53.     ' change the next line to do the actual unzip!
  54.     mess = 1  ' 1=list contents of zip 0=extract
  55.     dirs = 1  ' 1=honour zip directories
  56.     ' select filenames if required
  57.     '   vbzipnam.s(0) = "sfx16.dat"
  58.     '   vbzipnam.s(1) = "sfx32.dat"
  59.     '   vbzipnam.s(2) = "windll.h"
  60.     '   numf = 3
  61.     ' or just select all files
  62.     vbzipnam.s(0) = vbNullString
  63.     numf = 0
  64.     ' select filenames to exclude from processing
  65.     vbxnames.s(0) = vbNullString
  66.     numx = 0
  67.     ' Change the next 2 lines as required!
  68.     zipfile = "e:\load\mike9.zip"
  69.     unzipdir = "C:\WORK"
  70.     '
  71.     Call VBUnzip(zipfile, unzipdir, _
  72.         prom, over, mess, dirs, numf, numx)
  73.     If Len(vbzipmes) > 0 Then Print vbzipmes
  74.     If Len(vbzipinf) > 0 Then
  75.         Print "vbzipinf is:"
  76.         Print vbzipinf
  77.     End If
  78.     If vbzipnum > 0 Then Print "Number of files: " + Str$(vbzipnum)
  79. End Sub
  80.  
  81.