home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD154642242001.psc / FrmDirectory.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2001-02-10  |  2.1 KB  |  71 lines
  1. VERSION 5.00
  2. Begin VB.Form FrmDirectory 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Select a Directory"
  5.    ClientHeight    =   4590
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   3870
  9.    Icon            =   "FrmDirectory.frx":0000
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   4590
  13.    ScaleWidth      =   3870
  14.    ShowInTaskbar   =   0   'False
  15.    StartUpPosition =   3  'Windows Default
  16.    Begin VB.DriveListBox SetDrive 
  17.       Height          =   315
  18.       Left            =   120
  19.       TabIndex        =   3
  20.       Top             =   120
  21.       Width           =   3615
  22.    End
  23.    Begin VB.DirListBox SetDir 
  24.       Height          =   3465
  25.       Left            =   120
  26.       TabIndex        =   0
  27.       Top             =   480
  28.       Width           =   3615
  29.    End
  30.    Begin VB.CommandButton OKCmd 
  31.       Caption         =   "&OK"
  32.       Height          =   375
  33.       Left            =   1440
  34.       TabIndex        =   1
  35.       Top             =   4080
  36.       Width           =   1095
  37.    End
  38.    Begin VB.CommandButton CancelCmd 
  39.       Caption         =   "&Cancel"
  40.       Height          =   375
  41.       Left            =   2640
  42.       TabIndex        =   2
  43.       Top             =   4080
  44.       Width           =   1095
  45.    End
  46. Attribute VB_Name = "FrmDirectory"
  47. Attribute VB_GlobalNameSpace = False
  48. Attribute VB_Creatable = False
  49. Attribute VB_PredeclaredId = True
  50. Attribute VB_Exposed = False
  51. Dim LastDrive As String
  52. Private Sub CancelCmd_Click()
  53.     Unload Me
  54. End Sub
  55. Private Sub OKCmd_Click()
  56.     FrmMain.ExtractPath.Text = SetDir.Path
  57.     Unload Me
  58. End Sub
  59. Private Sub SetDir_Change()
  60.     SetFiles = SetDir
  61. End Sub
  62. Private Sub SetDrive_Change()
  63.     On Error GoTo FinaliseError
  64.     LastDrive = SetDrive
  65.     SetDir = SetDrive
  66.     Exit Sub
  67. FinaliseError:
  68.     MsgBox SetDrive.List(SetDrive.ListIndex) & vbNewLine & vbNewLine & "The device is not ready.", vbCritical, SetDrive.List(SetDrive.ListIndex)
  69.     SetDrive = LastDrive
  70. End Sub
  71.