Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
COPY xx TO yy TYPE FOX2X
SET DEFAULT TO 'c:\$temp\'
DECLARE laFiles[1]
lnCount = ADIR('laFiles','*.dbf')
FOR lni = 1 TO lnCount
WAIT WINDOW NOWAIT "Prcessing: " + ALLTRIM(STR(lni)) + " of " + ALLTRIM(STR(lnCount))
lcFileName = laFiles[lni,1]
lcNewName = "c:\$temp\newdir\" + lcFileName
IF USED((laFiles))
SELECT (laFieles)
GO TOP
ELSE
USE (laFiles)
ENDIF
COPY TO (lcNewName) TYPE FOX2X
USE
ENDFOR