sdr='D:\Sabbatical2009_10';
wc='\*.mat';

dr=dir([sdr '\*']);
dr=dr([dr.isdir]);

Ndr=length(dr);
for nd=1:Ndr
	dd=dir([sdr '\' dr(nd).name '\' wc]);
	if(~isempty(dd))
		fprintf('copy %s %s...',[sdr '\' dr(nd).name '\' wc],[dr(nd).name]);
		copyfile([sdr '\' dr(nd).name '\' wc],[dr(nd).name],'f');
		fprintf('done\n');
	end
end
