That was perfect Tore. I made a few changes and it worked beautifully, better than the way I was going.

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*