1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
2
3 '***********************************
4 '*** Code From VisibleVisual.com ***
5 '***********************************
6
7 Dim Folder As String
8
9 'Specify the root folder this example is set to the MyComputer
10
11 FolderBrowserDialog1.RootFolder = Environment.SpecialFolder.MyComputer
12
13 Folder = FolderBrowserDialog1.ShowDialog()
14
15 'Display the selected folder into a textbox
16
17 TextBox2.Text = FolderBrowserDialog1.SelectedPath
18
19 End Sub
20