dir0=ToFileName[{"f:\\archives"}];
Do[ (* year *) year=ToString[nyear];
Do[ (* roll *) roll=ToString[nroll];
dirthumb=ToFileName[{dir0,"compress",year,roll,"jpeg"}];
If[SetDirectory[dirthumb]<>"\\"!=dirthumb,Goto[1]];
dirroll=ToFileName[{dir0,year,roll}];
browser=ToFileName[dirroll,"browser.htm"];
browser0=ToFileName[dirroll,"browser0.htm"];
DeleteFile[browser0];
RenameFile[browser,browser0];
SetFileDate[browser0];
Label[1],{nroll,100}],{nyear,1996,1999}];