>>There doesn't seem to be anyway to achieve this. I checked in my (old) Hackers and they suggest using GetFile and PutFile instead. Can you substitute?
>>
>
>I would not like, because i using my own form that display the bmp or gift file.

Plinio,

In the Requery of the combo or list you can;

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