Something like this, not tested

Create cursor curImage (Filename c(20)) && Add more fields if relevant
lcFileType='TIF,FJP,PNG,JPG'
For x=1 to getwordcount(lcFileType,',')
  Adir(aImages,'*.'+GetWordNum(lcFileType,x,','))
  Append from array aImages
Endfor
Sele * from curImage into array aImages

>How do you add data from one element of several arrays into a new arrays?
>
>For example:
>
>You have:
>

>SET DEFAULT TO C:\GRAPHICS
>DIMENSION aTIF[1], aFJP[1], aPNG[1], aJPG[1], aIMAGES[1]
>
>ADIR(aTIF, "*.TIF")
>ADIR(aFJP, "*.FJP")
>ADIR(aPNG, "*.PNG")
>ADIR(aJPG, "*.JPG")
>
>ACOPY(aTIF, aImages) ???
>
>* At this point, how do you add the resulting FILENAMES only from each array,
>* if there is data, into the last array, aImages?
>
>