CLOSE DATABASES 
SET DELETED ON
SET ANSI ON
SET EXACT ON 

lcdir = [E:\vali\MARITIMO_DBF\]
CD (m.lcDir)
lnFiles = ADIR(laFiles, '*.dbf')
FOR lnFile = 1 TO lnFiles
	lcFile = lcDir + laFiles(lnFile,1)
	USE (m.lcFile) IN 0 SHARED 
ENDFOR