+ let exportResults () =
+ let extension = ".txt"
+ let dialog = SaveFileDialog(AddExtension = true, DefaultExt = extension)
+
+ if state.FilePath <> ""
+ then
+ dialog.FileName <- Path.GetFileNameWithoutExtension(state.FilePath) + extension
+ elif state.PatientID <> ""
+ then
+ dialog.FileName <- state.PatientID + extension
+
+ let res = dialog.ShowDialog()
+ if res.HasValue && res.Value then
+ try
+ Export.exportResults state dialog.FileName
+ with
+ | :? IOException as ex ->
+ Log.Error(ex.ToString())
+ MessageBox.Show(sprintf "The results cannot be exported in '%s'" state.FilePath, "Error exporting the files", MessageBoxButton.OK, MessageBoxImage.Error) |> ignore
+