SET DEFAULT TO c:\myRepDir =ADIR(adr,"*.frx") FOR i=1 TO ALEN(adr,1) ?adr(i,1) USE (adr(i,1)) DELETE FOR Inlist(objtype, 25, 26) PACK ENDFOR =ADIR(adr,"*.lbx") FOR i=1 TO ALEN(adr,1) ?adr(i,1) USE (adr(i,1)) DELETE FOR Inlist(objtype, 25, 26) PACK ENDFOR USECheers