VERSION 5.00
Begin VB.Form SelectLocation 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Select Download Location"
   ClientHeight    =   3645
   ClientLeft      =   2760
   ClientTop       =   3750
   ClientWidth     =   3375
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3645
   ScaleWidth      =   3375
   Begin VB.DirListBox DirList 
      Height          =   2340
      Left            =   120
      TabIndex        =   2
      Top             =   600
      Width           =   3135
   End
   Begin VB.DriveListBox DriveList 
      Height          =   315
      Left            =   120
      TabIndex        =   1
      Top             =   120
      Width           =   3135
   End
   Begin VB.CommandButton OKButton 
      Caption         =   "OK"
      Default         =   -1  'True
      Height          =   375
      Left            =   120
      TabIndex        =   0
      Top             =   3120
      Width           =   3135
   End
End
Attribute VB_Name = "SelectLocation"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Option Explicit


Private Sub DriveList_Change()
On Error GoTo nochange
DirList.Path = DriveList.Drive
nochange:
End Sub


Private Sub Form_Load()
If (RioFXP.SaveDir.Tag = "Empty") Then
    DirList.Path = "C:\"
    DriveList.Drive = "C:"
Else
    DirList.Path = RioFXP.SaveDir.Tag
    DriveList.Drive = Left(RioFXP.SaveDir.Tag, 2)
End If
End Sub

Private Sub OKButton_Click()

RioFXP.SaveDir.Tag = DirList.Path

If (InStrRev(DirList.Path, "\") <> (Len(DirList.Path) - 1)) Then
    RioFXP.SaveDir.Tag = RioFXP.SaveDir.Tag + "\"
End If

RioFXP.Enabled = True
RioFXP.CheckButtons
Unload SelectLocation

End Sub