cd path_where_dbfs_are
CREATE DATABASE MyData

numb_of_dbfs = ADIR(allDBF, "*.DBF")
FOR i = 1 TO m.numb_of_dbfs
    dbf_name = JUSTSTEM(allDBF[i,1])
    USE (dbf_name)
    IF EMPTY(CURSORGETPROP("DataBase", dbf_name)) && To see if this table is FREE
       SET DATABASE TO MyData
       ADD TABLE (dbf_name)
    ENDIF
    USE IN SELECT(dbf_name)
NEXT
CLOSE DATABASE ALL