hi,
thank you for reply,i try as under. not work

FOR nCount = 1 TO nTablesCount
   ? aTables(nTablesCount,1)
nTablesCount=adir(thisform.aTables,"*.dbf")
thisform.list1.value=nTablesCount
thisform.list1.RowSourceType = 5
thisform.list1.RowSource = 'thisform.aTables'
thisform.list1.ListIndex = 1

endfor


>>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