Initial: flux text FoxBin2Prg (git urmareste .??2 in-arbore, binarele VFP git-ignored)
Include si sistemul de depanare/testare headless din Teste\ (harness UI cu capturi, verificare de sintaxa prin compilare, wrappere text<->binar) si docs\depanare_testare_flora2roa.md.
This commit is contained in:
12
fisiere.prg
Normal file
12
fisiere.prg
Normal file
@@ -0,0 +1,12 @@
|
||||
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
|
||||
Reference in New Issue
Block a user