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
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