|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (ActiveX/Controles/DLL)
|
|
 |
Título da Dica: Códigos Erro do DriveListBox
|
 |
|
|
|
Postada em 14/8/2000 por Webmaster
webmaster@vbweb.com.br
Private Sub Dir1_Change()
'Faz com que os arquivos que irão aparecer no
'FileListBox serão os do diretório selecionado
'no DirListBox
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
'tratamento de erro
On Error GoTo ErrorDRV
'Indica que os diretórios que irão aparecer no
'DriveListBox serão o da unidade selecionada
Dir1.Path = Drive1.Drive
Exit Sub
ErrorDRV:
MsgBox "Não há disco nesta unidade !", vbCritical
End Sub
|
|
|
|
|
