thank you very much, it works.

>If it's free tables then you can loop through array adding only tables that you want to the listbox:
>

>=adir(myarray,"*.dbf")
>With thisform.list1
>  .RowSourceType = 0
>  .Clear
>  For nLoop=1 to Alen(myarray,1)
>    cTablename=upper(alltrim(myarray[nLoop,1]))
>    if cTablename=='FOXUSER.DBF
>      loop
>    endif
>    .Additem(cTablename,nLoop)
>  Endfor
>Endwith
>

>
>>thank you,
>>my small project(via myform) i change excel files to free table, i make som operations, i need to show only those table at my list to make operations i need.
>>
>>>If you use database container then ADBOBJECTS(myarray,'table') will return database-related table names only.
>>>
>>>>hi all,
>>>>
>>>>i need help to let the table FOXUSER.DBF visible=.t. at my list
>>>>as
>>>>thisform.list1.(FOXUSER.dbf)visible=.t.
>>>>

>>>>nTablesCount=adir(thisform.aTables,"*.dbf")
>>>>thisform.list1.RowSourceType = 5
>>>>thisform.list1.RowSource = 'thisform.aTables'
>>>>thisform.list1.Requery()
>>>>thisform.list1.ListIndex = 1
>>>>thisform.list1.refresh
>>>>

>>>>thanks.