The code below works fine until lately. I think it may be too many frx files - there are now 13,597. I thought the array size limit was much larger.


crea cursor txtpick (name c(50), size n(10), date d(8))

mcnt = adir(ltxt,(*.frx))
IF mcnt = 0
=MESSAGEBOX('No matching files found',48,'Bad Luck')
thisform.Release
SELECT txtpick
use
ENDIF

sele txtpick
appe from array ltxt
INDEX ON name tag name
index on date tag date desc