>Hello:
>
>I'm trying to list everything in an array from a directory except
>.fpt files. I want to know if I can do this with the adir function or
>can I list everything and then delete all .fpt files and then redimension the array. Does anybody know how I can go about doing this? Any help would be greatly appreciated. Thanks


The quickest way to do this is probably to use ADIR() to populate an array, append it to a cursor, and then copy the content of the cursor back to an array, something like:

CREATE CURSOR Temp (fname C(100), fsiz I, fdate D, ftime c(8) fattr c(8))
=ADIR(aFileList,'C:\MyDirTOCheck\*.*')
APPEND FROM aFileList
DECLARE aFileList[1,5]
COPY TO ARRAY aFileList FOR ! '.FPT'$fname