LPARAMETERS tcSearchString, tcExtension lcDir = getdir("","Where are files are located?") IF empty(lcDir) RETURN ENDIF CREATE cursor flist (scxname c(30), fieldname c(20), recnumber i) SELECT 0 =adir(aFormfiles,lcDir+"*."+tcExtension) FOR fcnt = 1 to alen(aFormfiles,1) USE (lcDir+aFormfiles[fcnt,1]) alias current SCAN FOR ix = 1 to fcount("current") IF type(field(ix,"current"))$"CM" ; and atc(tcSearchString, eval(field(ix,"current")))>0 INSERT into flist values ; (aFormfiles[fcnt,1], field(ix, "current"), recno("Current")) ENDIF ENDFOR ENDSCAN USE ENDFOR SELECT flist on key label "F2" do EditTarget go top BROW on key label "F2" Function EditTarget use (lcDir+trim(flist.scxname)) in 0 alias EdtSCX go flist.recnumber in "EdtSCX" select EdtSCX wait window nowait "Field name is : "+(trim(flist.fieldname)) browse use select flistCetin