www.pudn.com > virtualdrivemapper.zip > frmFolder.frm

VERSION 5.00 
Begin VB.Form frmFolder  
   BorderStyle     =   3  'Fixed Dialog 
   Caption         =   "Select Folder For vDrive" 
   ClientHeight    =   3615 
   ClientLeft      =   2760 
   ClientTop       =   3750 
   ClientWidth     =   3975 
   Icon            =   "frmFolder.frx":0000 
   LinkTopic       =   "frmMain" 
   MaxButton       =   0   'False 
   MinButton       =   0   'False 
   ScaleHeight     =   3615 
   ScaleWidth      =   3975 
   ShowInTaskbar   =   0   'False 
   StartUpPosition =   2  'CenterScreen 
   Begin VB.Frame Frame1  
      Height          =   3735 
      Left            =   0 
      TabIndex        =   0 
      Top             =   -120 
      Width           =   3975 
      Begin VB.CommandButton cmdOK  
         Caption         =   "OK" 
         Height          =   375 
         Left            =   2880 
         TabIndex        =   4 
         Top             =   3240 
         Width           =   975 
      End 
      Begin VB.CommandButton cmdAbort  
         Caption         =   "Cancel" 
         Height          =   375 
         Left            =   1680 
         TabIndex        =   3 
         Top             =   3240 
         Width           =   975 
      End 
      Begin VB.DriveListBox drv  
         Height          =   315 
         Left            =   120 
         TabIndex        =   2 
         Top             =   240 
         Width           =   3735 
      End 
      Begin VB.DirListBox dir  
         Height          =   2340 
         Left            =   120 
         TabIndex        =   1 
         Top             =   600 
         Width           =   3735 
      End 
   End 
End 
Attribute VB_Name = "frmFolder" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
'///////////////////////////////////////////////////////// 
'Copyright © 2001 B.O.O.P.S. Inc. 
'BOOPS, Based On Other People's Stuff 
'We don't code the source you download, we code it better. 
'Original only in the synthesis. 
' 
'This program is based on Ian O'Connor's(oc@lineone.net) vb script file 
'"Directory Mapping.vbs" with revisions by Neil Ramsbottom(nramsbottom@hotmail.com). 
'It was included in the zip. 
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ 
Option Explicit 
Dim Path As String 
'///////////////////////////////////////////////////////// 
 
Private Sub cmdOK_Click() 
frmCreate.txtPath = Path 
cmdAbort_Click 
End Sub 
Private Sub cmdAbort_Click() 
Unload Me 
End Sub 
Private Sub drv_Change() 
On Error GoTo err 
Dir.Path = drv.Drive 
Exit Sub 
err: 
MsgBox err.Description, vbCritical 
End Sub 
Private Sub dir_Change() 
Path = Dir.Path 
End Sub