NAO LISTAR DIRETORIO

Imports System.IO

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        [ô]### Necessário para utilizar algumas classes envolvidas

        Dim DirDiretorio As DirectoryInfo = New DirectoryInfo([Ô]C:\[Ô])
        [ô]Dim DirDiretorio As DirectoryInfo = New DirectoryInfo([Ô]C:\Windows\winsxs\amd64_microsoft-windows-usertiles_31bf3856ad364e35_6.1.7600.16385_none_f385bacaa98d1e8b\[Ô])
        Dim oFileInfoCollection() As FileInfo
        Dim oFileInfo As FileInfo
        Dim i As Integer

        [ô]### Preenche o FileCollection com um Array de objetos FileInfo
        oFileInfoCollection = DirDiretorio.GetFiles([Ô]*.*[Ô])

        [ô]### Podemos utilizar os objetos da coleção oFileCollection para preencher um ListBox por exemplo

        For i = 0 To oFileInfoCollection.Length() - 1
            oFileInfo = oFileInfoCollection.GetValue(i)
            ListBox1.Items.Add(oFileInfo.Name)
        Next

        [ô]Leia mais em: Dicas .NET - Listar Arquivos de um Diretório http://www.devmedia.com.br/dicas-net-listar-arquivos-de-um-diretorio/1228#ixzz2wauDmScn
    End Sub

End Class

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ListBox1.Items.Clear()
        Dim txtArr As ArrayList = New ArrayList

        [ô]Não coloque um diretório que tenha muitos diretórios internos e arquivos, senão demorará uma vida para fazer!
        txtArr = GetFiles([Ô]C:\Temp\Teste[Ô])

        For i As Long = 0 To txtArr.Count - 1
            Me.ListBox1.Items.Add(txtArr(i))
        Next

    End Sub

    Private Function GetFiles(ByVal pathFolder As String) As ArrayList
        Dim returnFiles As ArrayList = New ArrayList

        Dim dirInfo As DirectoryInfo = New DirectoryInfo(pathFolder)
        If dirInfo.Exists Then
            Dim filesInfo As FileSystemInfo() = dirInfo.GetFileSystemInfos
            Dim DirInfor As FileSystemInfo() = dirInfo.GetDirectories

            For Each dire As FileSystemInfo In DirInfor
                [ô]For Each fil As FileSystemInfo In filesInfo
                returnFiles.Add(dire.FullName)
                [ô]If dire.Attributes = FileAttributes.Directory Then
                returnFiles.AddRange(GetFiles(dire.FullName))
                [ô]End If
                [ô]Next
            Next

        End If
        Return returnFiles
    End Function

[ô]ListBox1.Items.Add(New String([Ô]-[Ô]c, nivel * 2) & dir)

    Private Sub exibeArvoreDiretorio(ByVal dir As String, ByVal exibeArquivos As Boolean, Optional ByVal nivel As Integer = 0)
        [ô] Exibe o nome da pasta com a identação correta
        [ô]ListBox1.Items.Add(New String([Ô]-[Ô]c, nivel * 2) & dir)
        Try
            [ô] Exibe todos os arquivos na pasta com a identanção correta
            If exibeArquivos Then
                For Each nome As String In Directory.GetFiles(dir)
                    ListBox1.Items.Add(New String([Ô] [Ô]c, nivel * 2 + 2) & nome)
                Next
            End If
            [ô] Uma chamada recursiva para exibir todos os subdiretorios da pasta
            For Each subdir As String In Directory.GetDirectories(dir)
                exibeArvoreDiretorio(subdir, exibeArquivos, nivel + 1)
            Next
        Catch
            Throw New Exception([Ô]ocorreu um erro[Ô])
        End Try
    End Sub