i try as..but not work??

SET DEFAULT TO d:\vfpview
gnDbcnumber = ADIR(tables, '*.dbf')  && Create array
CLEAR
FOR nCount = 1 TO gnDbcnumber  && Loop for number of databases
   ? gaDatabase(nCount,1)  && Display database names
ENDFOR
SET DEFAULT TO d:\vfpview

thanks

>list tables does list tables of a database (dbc) to the printer or a file, simple text output, but you can't set something to it, it's a command, not a function.
>
>If you have a DBC use ADODBOBJECTS() to get a list of tables, if you have a directory of free tables, simply use ADIR().
>
>Bye, Olaf.