%EZmultiday callled by EZmultidayGui
global exp
global exDlst
global exFolder

c= strfind(exDlst,' ');
d= strfind(exDlst,'_');
clear expDlstS
ii=0;
for n=1:(size(c,1))
   if ((sum(ismember(cell2mat(c(n)),[3,4]))==1 && ~isempty(ismember(cell2mat(c(n)),[3,4])))||...
       (sum(ismember(cell2mat(d(n)),[3,4]))==1 && ~isempty(ismember(cell2mat(d(n)),[3,4]))))
      ii= ii+1;
       expDlst(ii)= exDlst(n);
   end
    
end

clear matFile
ii=0;
for m= 1:size(expDlst,2)
    exD=fullfile(exFolder,cell2mat(expDlst(m)))
    dirLst=dir(exD);

    clear matFlst
    clear resF
    clear resMatF
    
 for n=1:size(dirLst,1)
   if sum(ismember('Results2', dirLst(n).name))==8
   resF= dirLst(n).name
   resMatF= fullfile(exFolder,cell2mat(expDlst(m)),resF,'matResults')
   matFlst= dir(resMatF)
   for o=1:size(matFlst,1)
       if sum(ismember('.mat', matFlst(o).name))==4
          ii= ii+1; 
          resDir{ii}= fullfile(exFolder,cell2mat(expDlst(m)),resF)
          matFile(m)= cellstr(fullfile(resMatF,matFlst(o).name))
       end
   end   %for o=1:size(matFlst,1)
   
   end  %if sum(ismember('Results2', dirLst(n).name))
  end  %for n=1:size(dirLst,1)
end   %for m= 1:size(expDlst,2)

Exp(expN).DexpLength= size(matFile,2);
Exp(expN).DexpN= size(matFile,2);