CLEAR CREATE CURSOR curImage (Filename c(20)) && Add more fields if relevant lcFileType='TIF,PNG' SET DEFAULT TO something FOR x=1 TO GETWORDCOUNT(lcFileType,',') lnSuccess=ADIR(aImages,'*.'+GETWORDNUM(lcFileType,x,',')) IF lnSuccess > 0 APPEND FROM ARRAY aImages ENDIF ENDFOR INDEX ON FILENAME TAG FILENAME SELECT * FROM curImage ORDER BY Filename INTO ARRAY aImages LIST MEMORY LIKE a*