VB.Net
Viendo artículo
Desarrollador: No estás conectado
Fecha: 18/03/2020 18:54:37
FolderBrowserDialog
Buscar Folder local
Buscar y seleccionar una carpeta en nuestro ordenador y pasarlo a un campo de texto llamado txtFolder.
Try

    Dim FolderBrowserDialog1 As New FolderBrowserDialog

    With FolderBrowserDialog1

        .Reset()

        .Description = " Seleccionar una carpeta "

        .ShowNewFolderButton = True

        Dim ret As DialogResult = .ShowDialog

        If ret = Windows.Forms.DialogResult.OK Then

            txtFolder.Text = .SelectedPath

        End If

        End With

Catch oe As Exception

    MsgBox(oe.Message, MsgBoxStyle.Critical)

End Try