Как отобразить каталог пути диалога браузера файлов в текстовом поле в VB.NET

Question

Я пытаюсь выбрать файл с помощью диалогового окна «Обозреватель файлов» и отображает путь в текстовом поле

для примера "C: \ Program Files"

Вот пример моего кода:

 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles bwrBtn.Click

    If FolderBrowserDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
        rootTxt.Clear()
        Dim grade As New IO.DirectoryInfo(FolderBrowserDialog1.SelectedPath)
        Dim inFiles As IO.FileInfo() = grade.GetFiles()
        Dim fLinfo As IO.FileInfo
        For Each fLinfo In inFiles
            rootTxt.Text(fLinfo)
        Next

    End If
    'Exit File Directory

End Sub

Когда пользователь выбирает файл, в текстовом поле должен появиться каталог с файлом

Answer 1

Я не разработчик VB, но, возможно, что-то вроде этого должно работать:

If FolderBrowserDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
    rootTxt.Clear()
    Dim grade As New IO.DirectoryInfo(FolderBrowserDialog1.SelectedPath)
    Dim inFiles As IO.FileInfo() = grade.GetFiles()
    Dim fLinfo As IO.FileInfo

    Dim directoryPath As string = Path.GetDirectoryName(FolderBrowserDialog1.SelectedPath)

    rootTxt.Text = directoryPath
End If