Edward, this is what I use . . . Hope it helps

local cRpt,cRpt1

lnReports = ADIR( laReports, "*.frx" )
messagebox(str(lnReports))
for lnI = 1 to lnReports
use ( laReports[lnI, 1] )
cRpt= ( laReports[lnI, 1] )
cRpt1 = (laReports[lnI,1])
replace Expr with "ORIENTATION=0",;
TAG with "",;
TAG2 with "";
for OBJCODE = 53

use
endfor
use
return