Add dialog window for output file selection

diff --git a/Bubliny.m b/Bubliny.m
index a833fe03abaee55d80d0e99ef7800cf457f9ad45..48a5a8109aeda37859dfb93e9f33449b2ba3162e 100755 (executable)
--- a/Bubliny.m
+++ b/Bubliny.m
@@ -12,7 +12,6 @@ clc;                                                                        % cl
 DirectoryName = get_data_dir();\r
 \r
 %DirectoryPath='T:\00-Orvalho\Travnickova\Bubble column\';\r
-disp(['The data directory used for files is ', DirectoryName]);             % displays the name of selected file in Command Window\r
 \r
 DDirectory = dir(DirectoryName);                                            % Loads directories or subdirectories to struct FFiles(1).name, FFiles(1).folder, FFiles(1).date - i s casem\r
 \r
@@ -30,7 +29,11 @@ if isempty(SelectedDirectory)                                               % ha
 end\r
 nSelectedDirectory = numel(SelectedDirectory);                              % Counts directories\r
 \r
-ResFile = [DirectoryName '.xlsm'];\r
+[ResFile, res_path] = uiputfile('*.xlsm', 'Save results to');\r
+if (ResFile == 0)\r
+       error('No file elected to save the results to.')\r
+end\r
+ResFile = [res_path, ResFile];\r
 \r
 \r
 %%\r