sdr='c:\data012\Tetramer Data';
wc='*.xls';

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

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