lparameters tcSearch create cursor formlist (formname m, recno i) lcSCXDir = getdir() lnFiles = adir(arrForms,'SCX') for ix = 1 to lnFiles select arrForms[ix,1], recno() from ; (lcSCXDir+'\'+arrForms[ix,1]) ; where atc(tcSearch,methods) > 0 ; into array arrExist if _tally > 0 insert into formlist from array arrExist release arrExist endif endforCetin