VB .NET -  Exibindo Arquivos e Diretórios

 

O VB.NET trouxe muitos recursos que vieram facilitar a vida dos desenvolvedores ; quer um exemplo ? 

 

Os métodos do Namespace System.IO facilitam muito  quando precisamos exibir arquivos e diretórios  : basta usar os métodos GetFiles e GetDirectories.

 

Quer ver ???

 

Como você já deve ter desconfiado :

Vamos então ao que interessa : um exemplo prático :

1 - Inicie um novo projeto no Visual Studio.NET com as seguintes características (sinta-se a vontade para alterar a seu gosto.)

  1. Project Types : Visual Basic Projects
  2. Templates : Windows Application
  3. Name : ExibeArvoreDiretorios
  4. Location : c:\vbnet\ExibeArvoreDiretorios

2- No formulário padrão form1.vb insira os controles conforme o layout da figura abaixo :

 

 

3- A primeira coisa a fazer é importar o Namespace System.IO :

 

Imports  System.IO

 

4- No evento click do controle Button - insira o código abaixo :

 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

   Dim raizDir As String

   For Each raizDir In Directory.GetDirectories(txtdir.Text)

         ExibirArvoreDiretorios(raizDir, True)

  Next

End Sub

 

 

5-  A seguir cria a rotina ExibirArvoreDiretorios conforme o código abaixo:

 

Private Sub ExibirArvoreDiretorios(ByVal dir As String, ByVal MostraArquivos As Boolean, Optional ByVal nivel As Integer = 0)

Dim subdir As String

Dim nome As String

ListBox1.Items.Add((New String(" Diretorio - " & dir)))

 

Try

     If MostraArquivos Then

         For Each nome In Directory.GetFiles(dir)

            ListBox1.Items.Add(New String(nome))

               Next

     End If

Catch

   MsgBox("<<ERRO>> Não é possivel exibir os arquivos !", MsgBoxStyle.Critical)

End Try

End Sub

 

 

Execute o projeto e informe o nome do diretório a partir do qual deseja exibir os arquivos e subdiretórios :(veja o resultado abaixo)

 

 

Muito simples , não é mesmo ...

 

Veja os Destaques e novidades do SUPER DVD Visual Basic  (sempre atualizado) : clique e confira !

Quer migrar para o VB .NET ?

Veja mais sistemas completos para a plataforma .NET no Super DVD .NET , confira...

Quer aprender C# ??

Chegou o Super DVD C#  com exclusivo material de suporte e vídeo aulas com curso básico sobre C#.

Veja também os Cursos com vídeo aulas e projetos exemplos:

 
    Gostou ?   Compartilhe no Facebook    Compartilhe no Twitter 
Referências:

José Carlos Macoratti