ruta carpeta

 Private Sub btn_examinar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_examinar.Click
        If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
            tb_carpeta.Text = FolderBrowserDialog1.SelectedPath
        End If
    End Sub

botón folderBrowser

FolderBrowserDialog1.ShowNewFolderButton = False