>hi,
>thank you very much, it works
>is ther a way to let it as
> thisform.list1.value=aTables(nTablesCount,1) or thisform.combo1.value=aTables(nTablesCount,1)
>

>SET DEFAULT TO d:\vfpview
>nTablesCount = ADIR(aTables, 'DBF')&&&  result is 0
>nTablesCount = ADIR(aTables, '*.DBF')&&& ok
>CLEAR
>FOR nCount = 1 TO nTablesCount
>   ? aTables(nTablesCount,1)
>thisform.list1.value=aTables(nTablesCount,1)
>or
>thisform.combo1.value=aTables(nTablesCount,1)
>
>
>ENDFOR
>

>thanks

Mohammed,

Create an array property aTables for your form, then

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