浏览文件夹路径--获取路径

 Private Sub Browse_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles Browse.Click
            Dim FBDlg As FolderBrowserDialog = New FolderBrowserDialog()
            FBDlg.Description = "Browse for Folder"
            FBDlg.ShowNewFolderButton = False
            If TarPath.Text <> "" Then
                FBDlg.SelectedPath = TarPath.Text
            Else
                FBDlg.RootFolder = Environment.SpecialFolder.MyComputer
            End If
            Dim ResultPath As DialogResult = FBDlg.ShowDialog()
            If ResultPath = DialogResult.OK Then
                Dim folderPath As String = FBDlg.SelectedPath
                If folderPath <> "" Then
                    TarPath.Text = folderPath
                End If
            End If
        End Sub