Listando arquivos de uma pasta

Vamos lá! 

Crie um projeto com nome Listando Arquivos

e adicione um botão com nome de btn
e um listbox com nome de lista

Dê duplo clique no botão criado

irá aparecer a parte do code, no bloco btn_Click digite:

 Dim dialog As New FolderBrowserDialog

        If dialog.ShowDialog = Windows.Forms.DialogResult.OK Then

            For Each arquivos As String In IO.Directory.GetFiles(dialog.SelectedPath, "*.txt")

                lista.Items.Add(arquivos)

            Next

        End If

Explicação:

Dim dialog As New FolderBrowserDialog = Definindo um novo diálogo de selecionar diretórios.

If dialog.ShowDialog = Windows.Forms.DialogResult.OK Then = Se apertar OK no dialog, irá acontecer...

For Each arquivos As String In IO.Directory.GetFiles(dialog.SelectedPath, "*.txt") = Pegando arquivos do diretório selecioando.

Explicando mais um pouco

 IO.Directory.GetFiles(1, 2)

1= diretório a ser listado

2= extenção de arquivos a ser listados

lista.Items.Add(arquivos) = Adicionando arquivos no listbox

Resultado:

Implementando 

Adicione um RichTextBox com nome de texto

Dê duplo clique no listbox (lista), no bloco lista_SelectedIndexChanged digite:

texto.text = My.Computer.FileSystem.ReadAllText(lista.SelectedItem)

Resultado:

este código irá abrir o txt selecionado. Boa Programação! até o próximo post sobre VB.NET!