>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
=adir(thisform.aTables,"*.dbf") thisform.list1.RowSourceType = 5 thisform.list1.RowSource = 'thisform.aTables' thisform.list1.ListIndex = 1