Dim fbd As New System.Windows.Forms.FolderBrowserDialog
        Dim path As String
        If fbd.ShowDialog() = DialogResult.OK Then
            path = fbd.SelectedPath
            MessageBox.Show(path)
        End If

    Me.ComboBox1.Items.AddRange(System.Environment.GetLogicalDrives)
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Try
            Dim path As String = Me.ComboBox1.Text
            Me.ListBox1.Items.Clear()
            Me.ListBox1.Items.AddRange(IO.Directory.GetFiles(path))
            Me.ListBox1.Items.AddRange(IO.Directory.GetDirectories(path))
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub