ok think i found a way to do this just need some help with the open input line this is the code

Code:
Const DRIVE_REMOVABLE = 2
Const DRIVE_FIXED = 3
Const DRIVE_REMOTE = 4
Const DRIVE_CDROM = 5
Const DRIVE_RAMDISK = 6

Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

Code:
Private Sub Form_Load()
Timer1.Enabled = True
Command19.BackColor = &H8000&
 Dim i As Long, a As String, k As Long
    For i = 0 To 25
        a = Chr$(i + 65) & ":\"
        k = GetDriveType(a)
        Select Case k
            'Case DRIVE_REMOVABLE: Text1.Text
            Case DRIVE_REMOVABLE: List1.AddItem Left$(a, 1) & " is a removable drive"
            'Case DRIVE_REMOVABLE: List1.AddItem Left$(a, 1) & " is a removable drive"
            'Case DRIVE_FIXED: List1.AddItem Left$(a, 1) & " is a hard/non-removable drive"
            'Case DRIVE_REMOTE: List1.AddItem Left$(a, 1) & " is a remote/network drive"
            'Case DRIVE_CDROM: List1.AddItem Left$(a, 1) & " is a CD-ROM drive"
            'Case DRIVE_RAMDISK: List1.AddItem Left$(a, 1) & " is a RAM drive"
        End Select
    Next

Recordlen = Len(person)
Filenum = FreeFile
Open DRIVE_REMOVABLE + a & "VSO\DATA\bonds.dat" For Random As Filenum Len = Recordlen
End Sub
this is my problem line

Code:
Open DRIVE_REMOVABLE + a & "VSO\DATA\bonds.dat" For Random As Filenum Len = Recordlen

the folder is on the jump drive is
\VSO\DATA\bonds.dat
the drive removable shows the correct drive but get a error when i run it im sure i have the problem line wrong

thanks for any help