>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
SET DEFAULT TO d:\vfpview nTablesCount = ADIR(aTables, 'DBF') CLEAR FOR nCount = 1 TO nTablesCount ? aTables(nTablesCount,1) ENDFOR