drive question

[davyquyo]

i inserted a drive box but it even shows drive's that is not on pc
and i use a little script like this

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

the problem know is when i select a driev that not exist an error shows up
how can i detect of a driveexist or how can i disable the not existed drivers

or maybe other possiblity's

[toughcoder]

hello davyquyo,
there r 2 APIs which u can use. I'm posting the code. Hope this helps

Private Declare Function GetLogicalDrives Lib "kernel32" () As Long
Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
 
Private Sub Form_Paint()
    Dim DriveData As Long, i As Long, strDrives As String
    'get the available drives
    DriveData = GetLogicalDrives
    strDrives = "Available drives:"
    For i = 0 To 25
        If (DriveData And 2 ^ i) <> 0 Then
            strDrives = strDrives + " " + Chr$(65 + i)
        End If
    Next i
    MsgBox strDrives 'display drives
    
        Dim strSave As String
    Me.AutoRedraw = True
    strSave = String(255, Chr$(0))
    ret& = GetLogicalDriveStrings(255, strSave)
    For keer = 1 To 100
        If Left$(strSave, InStr(1, strSave, Chr$(0))) = Chr$(0) Then Exit For
        Me.Print Left$(strSave, InStr(1, strSave, Chr$(0)) - 1) 'print drives
        strSave = Right$(strSave, Len(strSave) - InStr(1, strSave, Chr$(0)))
    Next keer
End Sub

[davyquyo]

ok this is showing the good drives but
the problem is still there
when i press e:\
and there is now cd in it
the error is still there

something like this drive is not availaible

[toughcoder]

hello davyquyo,
why dont u handle that error, i mean when that error comes tell the user to insert a cd into the drive. Use the onError keyword...

[Fox]

Private Sub Drive1_Change()
On Error Goto 1
 
    Dir1.Path = Drive1.Drive
    Exit Sub
 
1   'Error
    MsgBox "Drive not ready!", vbCritical
End Sub

[davyquyo]

thanx it works

[toughcoder]

anytime davy