程序代码: |
Private Sub BrowseBtn_Click(sender As Object, e As RoutedEventArgs)
Dim folderBrowserDialog As New System.Windows.Forms.FolderBrowserDialog()
Dim result As System.Windows.Forms.DialogResult = folderBrowserDialog.ShowDialog()
If result = System.Windows.Forms.DialogResult.OK Then
Me.BrowserPathTextBox.Text = folderBrowserDialog.SelectedPath
End If
End Sub