LOCAL laFiles(1), lnDel, lnCnt, lnNextId ADIR(laFiles, "*.*") lnDel = 0 FOR lnCnt = 1 to ALEN(laFiles,1) IF ".BMP" $ UPPER(laFiles(lnCnt,1)) LOOP ENDIF IF ".GIF" $ UPPER(laFiles(lnCnt,1)) LOOP ENDIF ADEL(lnCnt) lnDel = lnDel + 1 ENDFOR DIMENSION laFiles(ALEN(laFiles,1)-lnDel,ALEN(laFiles,2)) THIS.Clear FOR lnCnt = 1 TO ALEN( laFiles, 1) lnNextId = THIS.NewItemId THIS.AddListItem(laFiles(lnCnt),lnNextId) ENDFOR