DRIVE NAO DISPONIVEL

LORDAUTUNM 16/09/2005 10:13:19
#104572
Ola Galera, to com um probleminha aqui,
utilizei um controle Drive e um dirlistbox

e no evento change do drive coloquei uma rotina simples

Private sub drive1_change ()
dir1.path=drive1.path
end sub

mas se o drive for a Unidade A ou D: e se estiverem vazias sem CD ou Disk entao provoca o err Run Time error '68'.

tentei contornar o erro com um tratamento de erro assim:

Private sub drive1_change ()
on error got erro
dir1.path=drive1.path

erro:

if error=68 then
msgbox "A Unidade Selecionada Esta Vazia Por Favor Insira uma midia"
driver1.setfocus
end if
end sub

Porem ele nao executa o tratamento e continua dando erro
Alguem sabe como resolver isso?
LIONHEART 16/09/2005 10:35:56
#104575
esse é facil

sub DrvList_Change ()
    On Error GoTo sErro
    dirDiretorio.Path = drvDiretorio.Drive
   
    Exit Sub
sErro:
    MsgBox "Erro: Não há dispositivo"
    drvDiretorio.Drive = Mid(dirDiretorio.Path, 1, 2) 'pra pegar só o Drive que estava antes
end sub
LORDAUTUNM 16/09/2005 10:49:31
#104577
Valeu My Brother.
Tank you very much.
Tópico encerrado , respostas não são mais permitidas
Voltar