VERSION 5.00Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.1#0"; "comdlg32.ocx"Begin VB.Form VBUnzFrm    AutoRedraw      =   -1  'True   Caption         =   "VBUnzFrm"   ClientHeight    =   4785   ClientLeft      =   780   ClientTop       =   525   ClientWidth     =   9375   BeginProperty Font       Name            =   "Fixedsys"      Size            =   9      Charset         =   0      Weight          =   400      Underline       =   0   'False      Italic          =   0   'False      Strikethrough   =   0   'False   EndProperty   LinkTopic       =   "VBUnzFrm"   ScaleHeight     =   4785   ScaleWidth      =   9375   StartUpPosition =   1  'Fenstermitte   Begin VB.TextBox ZipFName       BeginProperty Font          Name            =   "Courier New"         Size            =   9.75         Charset         =   0         Weight          =   400         Underline       =   0   'False         Italic          =   0   'False         Strikethrough   =   0   'False      EndProperty      Height          =   375      Left            =   4440      TabIndex        =   5      Top             =   240      Width           =   4335   End   Begin VB.TextBox ExtractRoot       BeginProperty Font          Name            =   "Courier New"         Size            =   9.75         Charset         =   0         Weight          =   400         Underline       =   0   'False         Italic          =   0   'False         Strikethrough   =   0   'False      EndProperty      Height          =   375      Left            =   4440      TabIndex        =   4      Top             =   960      Width           =   4335   End   Begin VB.CommandButton StartUnz       Caption         =   "Start"      Height          =   495      Left            =   240      TabIndex        =   3      Top             =   1800      Width           =   3255   End   Begin VB.TextBox MsgOut       BeginProperty Font          Name            =   "Courier New"         Size            =   9         Charset         =   0         Weight          =   400         Underline       =   0   'False         Italic          =   0   'False         Strikethrough   =   0   'False      EndProperty      Height          =   2175      Left            =   240      Locked          =   -1  'True      MultiLine       =   -1  'True      ScrollBars      =   3  'Beides      TabIndex        =   2      Top             =   2520      Width           =   8895   End   Begin VB.CommandButton QuitVBUnz       Caption         =   "Quit"      Height          =   495      Left            =   6240      TabIndex        =   1      Top             =   1800      Width           =   2895   End   Begin VB.CommandButton SearchZfile       Caption         =   "..."      BeginProperty Font          Name            =   "MS Sans Serif"         Size            =   8.25         Charset         =   0         Weight          =   400         Underline       =   0   'False         Italic          =   0   'False         Strikethrough   =   0   'False      EndProperty      Height          =   375      Left            =   8760      TabIndex        =   0      Top             =   240      Width           =   375   End   Begin MSComDlg.CommonDialog CommonDialog1       Left            =   4800      Top             =   1800      _ExtentX        =   847      _ExtentY        =   847      _Version        =   327681   End   Begin VB.Label Label1       Caption         =   "Complete path-name of Zip-archive:"      BeginProperty Font          Name            =   "MS Sans Serif"         Size            =   9.75         Charset         =   0         Weight          =   400         Underline       =   0   'False         Italic          =   0   'False         Strikethrough   =   0   'False      EndProperty      Height          =   255      Left            =   240      TabIndex        =   7      Top             =   240      Width           =   3855   End   Begin VB.Label Label2       Caption         =   "Extract archive into directory:"      BeginProperty Font          Name            =   "MS Sans Serif"         Size            =   9.75         Charset         =   0         Weight          =   400         Underline       =   0   'False         Italic          =   0   'False         Strikethrough   =   0   'False      EndProperty      Height          =   255      Left            =   240      TabIndex        =   6      Top             =   960      Width           =   3855   EndEndAttribute VB_Name = "VBUnzFrm"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalseOption Explicit'---------------------------------------------------'-- Please Do Not Remove These Comment Lines!'----------------------------------------------------------------'-- Sample VB 5 code to drive unzip32.dll'-- Contributed to the Info-ZIP project by Mike Le Voi'--'-- Contact me at: mlevoi@modemss.brisnet.org.au'--'-- Visit my home page at: http://modemss.brisnet.org.au/~mlevoi'--'-- Use this code at your own risk. Nothing implied or warranted'-- to work on your machine :-)'----------------------------------------------------------------'--'-- This Source Code Is Freely Available From The Info-ZIP Project'-- Web Server At:'-- ftp://ftp.info-zip.org/pub/infozip/infozip.html'--'-- A Very Special Thanks To Mr. Mike Le Voi'-- And Mr. Mike White'-- And The Fine People Of The Info-ZIP Group'-- For Letting Me Use And Modify Their Orginal'-- Visual Basic 5.0 Code! Thank You Mike Le Voi.'-- For Your Hard Work In Helping Me Get This To Work!!!'---------------------------------------------------------------'--'-- Contributed To The Info-ZIP Project By Raymond L. King.'-- Modified June 21, 1998'-- By Raymond L. King'-- Custom Software Designers'--'-- Contact Me At: king@ntplx.net'-- ICQ 434355'-- Or Visit Our Home Page At: http://www.ntplx.net/~king'--'---------------------------------------------------------------'--'-- Modified August 17, 1998'-- by Christian Spieler'-- (added sort of a "windows oriented" user interface)'--'---------------------------------------------------------------Private Sub StartUnz_Click()    Dim MsgTmp As String        Cls    MsgOut.Text = ""        '-- Init Global Message Variables    uZipInfo = ""    uZipNumber = 0   ' Holds The Number Of Zip Files        '-- Select UNZIP32.DLL Options - Change As Required!    uPromptOverWrite = 1  ' 1 = Prompt To Overwrite    uOverWriteFiles = 0   ' 1 = Always Overwrite Files    uDisplayComment = 0   ' 1 = Display comment ONLY!!!        '-- Change The Next Line To Do The Actual Unzip!    uExtractList = 1       ' 1 = List Contents Of Zip 0 = Extract    uHonorDirectories = 1  ' 1 = Honour Zip Directories        '-- Select Filenames If Required    '-- Or Just Select All Files    uZipNames.uzFiles(0) = vbNullString    uNumberFiles = 0        '-- Select Filenames To Exclude From Processing    ' Note UNIX convention!    '   vbxnames.s(0) = "VBSYX/VBSYX.MID"    '   vbxnames.s(1) = "VBSYX/VBSYX.SYX"    '   numx = 2        '-- Or Just Select All Files    uExcludeNames.uzFiles(0) = vbNullString    uNumberXFiles = 0        '-- Change The Next 2 Lines As Required!    '-- These Should Point To Your Directory    uZipFileName = ZipFName.Text    uExtractDir = ExtractRoot.Text    If uExtractDir <> "" Then uExtractList = 0 ' unzip if dir specified            '-- Let's Go And Unzip Them!    Call VBUnZip32        '-- Tell The User What Happened    If Len(uZipMessage) > 0 Then        MsgTmp = uZipMessage    End If        '-- Display Zip File Information.    If Len(uZipInfo) > 0 Then        MsgTmp = MsgTmp & vbNewLine & "uZipInfo is:" & vbNewLine & uZipInfo    End If        '-- Display The Number Of Extracted Files!    If uZipNumber > 0 Then        MsgTmp = MsgTmp & vbNewLine & "Number Of Files: " & Str(uZipNumber)    End If        MsgOut.Text = MsgOut.Text & MsgTmp & vbNewLine        End SubPrivate Sub Form_Load()        ZipFName.Text = vbNullString    ExtractRoot.Text = vbNullString    Me.Show    End SubPrivate Sub QuitVBUnz_Click()    Unload MeEnd SubPrivate Sub SearchZfile_Click()    CommonDialog1.DialogTitle = "Open Zip-archive"    CommonDialog1.DefaultExt = ".zip"    CommonDialog1.ShowOpen    ZipFName.Text = CommonDialog1.filenameEnd Sub