DP Tool Club 26/CD_ASCQ_26_1295.iso/vrac/msmega.zip/ZIPINFSA.ZIP/ZSAMPLE2.FRM

Text File | 1993-12-20 | 4KB | 147 lines

VERSION 2.00
Begin Form ZSample2
   BorderStyle     =   3  'Fixed Double
   Caption         =   "Open ZIP File"
   ClientHeight    =   3270
   ClientLeft      =   2715
   ClientTop       =   3465
   ClientWidth     =   7215
   ControlBox      =   0   'False
   Height          =   3675
   Left            =   2655
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3270
   ScaleWidth      =   7215
   Top             =   3120
   Width           =   7335
   Begin DriveListBox Drive1
      Height          =   315
      Left            =   3000
      TabIndex        =   4
      Top             =   2760
      Width           =   2535
   End
   Begin DirListBox Dir1
      Height          =   1605
      Left            =   3000
      TabIndex        =   8
      Top             =   840
      Width           =   2535
   End
   Begin FileListBox File1
      Height          =   2175
      Left            =   240
      Pattern         =   "*.ZIP"
      TabIndex        =   5
      Top             =   840
      Width           =   2535
   End
   Begin TextBox Text1
      Height          =   285
      Left            =   240
      TabIndex        =   3
      Top             =   480
      Width           =   2535
   End
   Begin CommandButton Command2
      Caption         =   "Cancel"
      Height          =   375
      Left            =   5760
      TabIndex        =   1
      Top             =   720
      Width           =   1215
   End
   Begin CommandButton Command1
      Caption         =   "OK"
      Default         =   -1  'True
      Height          =   375
      Left            =   5760
      TabIndex        =   0
      Top             =   240
      Width           =   1215
   End
   Begin Label Label4
      Caption         =   "Drives:"
      Height          =   255
      Left            =   3000
      TabIndex        =   9
      Top             =   2520
      Width           =   1335
   End
   Begin Label Label3
      Height          =   255
      Left            =   3000
      TabIndex        =   7
      Top             =   525
      Width           =   2535
   End
   Begin Label Label2
      Caption         =   "Directories:"
      Height          =   255
      Left            =   3000
      TabIndex        =   6
      Top             =   240
      Width           =   1335
   End
   Begin Label Label1
      Caption         =   "File Name:"
      Height          =   255
      Left            =   240
      TabIndex        =   2
      Top             =   240
      Width           =   1335
   End
End
Option Explicit

Sub Command1_Click ()
    On Error GoTo ErrorHandle

    If Right$(Dir1.Path, 1) = "\" Then
        ZSample.ZipInfo1.FileName = Dir1.Path + File1.FileName
    Else
        ZSample.ZipInfo1.FileName = Dir1.Path + "\" + File1.FileName
    End If

    If ZSample.ZipInfo1.ListCount >= 0 Then
        ZSample2.Hide
    End If

    Exit Sub

ErrorHandle:
    MsgBox Error$(Err), 48, "Open ZIP"
    On Error Resume Next
    Resume ExitError

ExitError:
End Sub

Sub Command2_Click ()
    ZSample2.Hide
End Sub

Sub Dir1_Change ()
    Label3.Caption = Dir1.Path
    File1.Path = Dir1.Path
End Sub

Sub Drive1_Change ()
    Dir1.Path = Drive1.Drive
End Sub

Sub File1_Click ()
    Text1.Text = File1.FileName
End Sub

Sub File1_DblClick ()
    Command1_Click
End Sub

Sub Form_Load ()
    Label3.Caption = Dir1.Path
End Sub