How to display all the files and folders using vb.net code

See more:

VB

Hi,

Can anybody help with some code, how to display all the folders and files using vb.net, and one more thing will be advantage that if i can select the folder too?
I tried this code but iam not getting output, simply it is executing

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ' make a reference to a directory
        Dim di As New IO.DirectoryInfo("c:\")
        Dim diar1 As IO.FileInfo() = di.GetFiles()
        Dim dra As IO.FileInfo

        'list the names of all files in the specified directory
        For Each dra In diar1
            ListBox1.Items.Add(dra)
        Next
    End Sub

Please help with some code.