[VB6] Ajuda na "Drive1"

[PreTenDer666]

Boas,

ja consegui fazer o que desejava no topico listbox, mas agora estou com dois problema.

1º Quando se escolhe uma drive que nao esteja disponivel o prog dá erro, ja tentei colocar a aparecer uma MsgBox, mas não resultou. Alguem me sabe dizer o codigo?

Eu tinha colocado assim:

 

If Drive1.Drive = False Then MsgBox "opssS"

[David Pintassilgo]

isso deves de ter de usar qq coisa como on error

[PreTenDer666]

podes-me dar em exemplo por favor?

[psiico]

o codigo nao devia ser tipo:

If Drive1.Drive = False Then 
MsgBox "opssS"
end if

é k isto  " If Drive1.Drive = False Then MsgBox "opssS" " nao da nada!! (axo eu!)

[David Pintassilgo]

Mas assim como fizes-te tb nao dá.

[psiico]

Mas assim como fizes-te tb nao dá.

eu so corrigi o code nem o testei... eu axo k ano exist o drive False =S digo eu,lool!

[freesumo]

Eu usei este bocado de código (VB5) para monitorizar as mudanças de uma DriveListBox e actualizar uma  DirListBox. Neste caso se por exemplo eu escolher uma drive de cd-rom e ela estiver vazia o programa vai dar erro 68 (Device unavailable). Vai ao menu help e procura no índice remissivo por 'on error statement', 'resume statement ' e  'trappable errors' pode ser que te ajude.

Private Sub Drive1_Change()
    On Error GoTo DriveError
    Dir1.Path = Drive1.Drive
    Exit Sub
DriveError:
    MsgBox "Error number " & Err.Number & ".", vbOKOnly + vbExclamation, "ERROR"
    Drive1.Drive = Dir1.Path
End Sub

[PreTenDer666]

freesumo experimentei o teu codigo é isso mm,  obrigadão [[[]]]

Já agora se me conseguires(m) ajudar-me no topico "filebox para listbox" agradecia.