VERSION 5.00 Begin VB.Form frmGetDir BorderStyle = 3 'Fixed Dialog Caption = "Locate Library Folder" ClientHeight = 3840 ClientLeft = 45 ClientTop = 330 ClientWidth = 5370 Icon = "frmGetDir.frx":0000 LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 3840 ScaleWidth = 5370 ShowInTaskbar = 0 'False StartUpPosition = 3 'Windows Default Begin VB.CommandButton cbOk Caption = "OK" BeginProperty Font Name = "Verdana" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 420 Left = 4020 TabIndex = 3 Top = 3360 Width = 1245 End Begin VB.CommandButton cbCancel Caption = "Cancel" BeginProperty Font Name = "Verdana" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 420 Left = 120 TabIndex = 2 Top = 3360 Width = 1245 End Begin VB.DirListBox Dir1 Height = 2790 Left = 120 TabIndex = 1 Top = 495 Width = 5145 End Begin VB.DriveListBox Drive1 Height = 315 Left = 120 TabIndex = 0 Top = 120 Width = 5160 End End Attribute VB_Name = "frmGetDir" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub cbCancel_Click() sDirPath = "" Unload Me End Sub Private Sub cbOk_Click() sDirPath = Dir1.Path Unload Me End Sub Private Sub Drive1_Change() On Error Resume Next Dir1.Path = Drive1.Drive End Sub Private Sub Form_Load() If sDirPath = "" Then Dir1.Path = "c:\" Drive1.Drive = "c:\" Else Dir1.Path = sDirPath Drive1.Drive = Left(sDirPath, 3) End If End Sub