frmextractdir.frm

WinBig. A file archive utility written in VB. Compression and decompression routines are LZSS. Full

VERSION 5.00
Begin VB.Form frmExtractDir 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Extract To"
   ClientHeight    =   2790
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   6705
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   186
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   447
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  'Windows Default
   Begin VB.DirListBox Folders 
      Height          =   2115
      Left            =   90
      TabIndex        =   4
      Top             =   585
      Width           =   4980
   End
   Begin VB.CommandButton cmdCancel 
      Caption         =   "Cancel"
      Height          =   315
      Left            =   5205
      TabIndex        =   3
      Top             =   960
      Width           =   1425
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "OK"
      Height          =   315
      Left            =   5205
      TabIndex        =   2
      Top             =   540
      Width           =   1425
   End
   Begin VB.DriveListBox Drives 
      Height          =   315
      Left            =   1230
      TabIndex        =   1
      Top             =   165
      Width           =   3150
   End
   Begin VB.Label Label1 
      Caption         =   "Extract To:"
      Height          =   180
      Left            =   90
      TabIndex        =   0
      Top             =   210
      Width           =   1125
   End
End
Attribute VB_Name = "frmExtractDir"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private mdir As String
Private mStatus As Boolean

Public Function Display(Optional aType As Boolean = False) As Boolean
    CenterForm
    
    'If mdir > "" Then
    '    Drives = mdir
    '    Folders.Path = mdir
    'End If
    
    If aType Then
        Me.Caption = "Add"
        Me.Label1.Caption = "Add From:"
    End If
    
    Me.Show 1
    
    Display = mStatus
End Function

Public Property Get Dir() As String
    Dir = mdir + "\"
End Property

Private Sub cmdCancel_Click()
    mStatus = False
    
    Me.Hide
End Sub

Private Sub cmdOK_Click()
    mdir = Folders.Path
    
    mStatus = True
    
    Me.Hide
End Sub

Private Sub Drives_Change()
    Folders.Path = Drives
End Sub

Private Sub CenterForm()
    '* Centers form in the center of the screen,
    
    'make sure our form isn't too big
    If Me.Width > Screen.Width Then Me.Width = Screen.Width
    If Me.Height > Screen.Height Then Me.Height = Screen.Height
    'center the form
    Me.Left = (Screen.Width - Me.Width) / 2
    Me.Top = (Screen.Height - Me.Height) / 2
End Sub