List All Files in specified Drive or Folder

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

        'make a reference to a directory

        Dim dir As New System.IO.DirectoryInfo("c:\")

        Dim dir1 As System.IO.FileInfo() = dir.GetFiles()

        Dim directory As System.IO.FileInfo

        'list the names of all files in the specified directory or Drive

        For Each directory In dir1

            ListBox1.Items.Add(directory)

        Next

    End Sub

List All Folders in specified Drive or Folder

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

        'make a reference to a directory

        Dim dir As New System.IO.DirectoryInfo("c:\")

        Dim dir1 As System.IO.DirectoryInfo() = dir.GetDirectories()

        Dim directory As System.IO.DirectoryInfo

        'list the names of all folders in the specified drive or Directory

        For Each directory In dir1

            ListBox1.Items.Add(directory)

        Next

    End Sub