USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (ActiveX/Controles/DLL)

Título da Dica:  Códigos Erro do DriveListBox
Postada em 14/8/2000 por Webmaster      Clique aqui para enviar email para o autor  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
 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página