clear all;
dr=dir('tbt*');
Nd=length(dr);
while(Nd>0)
	try
		dn=dr(1).name;
		
		cd(dn);
		fprintf('Processing %s...\n',dn);
		GetPackage(1);
		track;
		connect;
		fprintf('Done processing %s\n',dn);
		
		cd('..');
		dn2=['tr' dn(4:end)];
		fprintf('Moving: \n%s =>\n%s...',dn,dn2);
		movefile(dn,dn2);
		fprintf('Done.\n');
		clear all;
		
		dr=dir('tbt*');
		Nd=length(dr);
	catch exception
		cd('..');
		dn2=['err' dn(4:end)];
		fprintf('Moving: \n%s =>\n%s...',dn,dn2);
		movefile(dn,dn2);
		fprintf('Done.\n');
		clear all;
		dr=dir('tbt*');
		Nd=length(dr);
	end
end

