FolderBrowserDialog Box in VB.NET
Step 1: Create a new project and form
Step 2: Add a TextBox, Button and FolderBrowserDialog to the form.
Step 3: Double click btnBrowse, and key in the following codes.
Private Sub btnBrowse_Click(sender As Object, e As EventArgs) Handles btnBrowse.Click
Dim folderDlg As New FolderBrowserDialog
folderDlg.ShowNewFolderButton = True
If (folderDlg.ShowDialog() = DialogResult.OK) Then
txtDir.Text = folderDlg.SelectedPath
Dim root As Environment.SpecialFolder = folderDlg.RootFolder
End If
End Sub
Step 4: Run the project.