directory select dialog [IN] proj_root : project root directory. [OUT] dirname : relative directory name from proj_root canceled : true/false (true means dialog closed by cancel) Copyright (C) 2011, ATR All Rights Reserved. License : New BSD License(see VBMEG_LICENSE.txt)
0001 function [dirname, canceled] = pa_prjdir_select(proj_root) 0002 % directory select dialog 0003 % 0004 % [IN] proj_root : project root directory. 0005 % 0006 % [OUT] dirname : relative directory name from proj_root 0007 % canceled : true/false (true means dialog closed by cancel) 0008 % 0009 % Copyright (C) 2011, ATR All Rights Reserved. 0010 % License : New BSD License(see VBMEG_LICENSE.txt) 0011 0012 canceled = false; 0013 0014 dirname = dir_dialog(proj_root, false); 0015 0016 % パスをproj_rootからの相対パスにする 0017 if dirname ~= 0 & ~isempty(proj_root) 0018 dirname = vb_relativepath(dirname, proj_root); 0019 dirname = dirname(1:length(dirname)-1); 0020 else 0021 canceled = true; 0022 end 0023