% Function : select a directory 
% use the function DIRECTORYNAME = UIGETDIR(STARTPATH, TITLE)
function select_dir(SPEAKERDIR,h_dir);

newdir=uigetdir(SPEAKERDIR, 'Select the directory');
if newdir==0;
   SPEAKERDIR=SPEAKERDIR;
else
   SPEAKERDIR=newdir;
   set(h_dir,'String',SPEAKERDIR);
end

end

%return