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.