sdr='D:\Sabbatical2009_10';
sub='ImageRepository';
wc=[sub '\*'];

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 '\' sub]);
		mkdir([dr(nd).name '\' sub]);
 		copyfile([sdr '\' dr(nd).name '\' wc],[dr(nd).name '\' sub],'f');
		fprintf('done\n');
	end
end
