Yo uso esta rutina.
u_database lo reemplazas por como quieres que se llame la database foxpro y el directorio de respaldo, debes estar conectado antes al motor.
*****
* Respaldar Información Empresa en DBF
*****
PROCEDURE Respaldar
IF !DIRECTORY(u_database)
MKDIR (u_database)
ENDIF
SET DEFAULT TO (u_database)
CREATE DATABASE (u_database)
OPEN DATABASE (u_database)
SQLEXEC(lnHandle,"SHOW TABLES","Tablas")
SELECT Tablas
lcCampo = FIELD(1)
SCAN
lcTabla = ALLTRIM(&lcCampo)
WAIT WINDOW "RESPALDANDO "+UPPER(lcTabla) NOWAIT
SQLEXEC(lnHandle,"SELECT * FROM "+lcTabla,"campos")
SELECT Campos
IF RECCOUNT("campos")>0
COPY TO &lcTabla DATABASE (u_database)
ENDIF
USE IN Campos
SELECT Tablas
ENDSCAN
USE IN Tablas
SET DEFAUL TO ..
CLOSE TABLES ALL
CLOSE DATABASES ALL
MESSAGEBOX("RESPALDO FINALIZADO OK...",64,"Atención")
ENDPROC