Olá pessoal, estou fazendo um form que retornará o caminho de uma pasta no HD. Estou usando um DriveListBox e um DirListBox para pegar o caminho. Porém quando clico em um drive que não tem nada dentro, como um disquete, cd, dvd, ele retorna o erro 68 "Device unavailable". Tentei resolver esse problema com o código abaixo, contudo o erro continua aparecendo. O que pode estar errado no código abaixo:

 

Private Sub Drive1_Change()  
    On Error GoTo TrataErro
    Dir1.Path = Drive1.Drive
    Exit Sub
TrataErro:
    If Err.Number <> 0 Then
        MsgBox "Erro Nº.: " & Err.Number & vbCrLf & vbCrLf & Err.Description, vbCritical, TituloSistema
    End If

End Sub

 

Fico no aguardo de respostas! Obrigado!!!

Gustavo Bittencourt Costa

Alguém pode me ajudar???

Alguém???

Roberto, o erro continua!!!

Quando executo o programa com um BreakPoint nesta rotina ele lê o comando On Error GoTo TrataErro, porém quando lê o comando Dir1.Path = Drive1.Path ele dá a mensagem de erro do VB. Pelo que me pareceu ele nem direciona este erro para a label do GoTo. E agora???

Fico no aguardo!!! Mais alguém pode me ajudar???

testei assim e funcionou

 

Private Sub Drive1_Change()
On Error Resume Next
Dir1.Path = Drive1.Drive
On Error GoTo 0
End Sub