tratamento de erro no driveListBox

[Alex Mauricio]

Boa tarde Pessoal.

Tenho em minha aplicação um driveListBox, porém gostaria de tratar o erro quando o usuário seleciona o drive de disquete ( A: ) e o mesmo está vazio ou o leitor de Cd quando o mesmo está vazio.

Teria como fazer? (segue o código que tenho até o momento ).

Private Sub Drive1_Change()

Dim d As String

d = Left(Drive1.Drive, 1)

If d = "a" Or d = "b" Then

Drive1.Drive = "c:"

End If

Dir1.Path = d & ":\"

End Sub

[kuroi]

um exemplo:

Private Sub Drive1_Change()
    On Error GoTo erro

    Dir1.Path = Drive1.Drive
    
erro:
    If Err.Number = 68 Then MsgBox "Drive vazio."
End Sub[/code]