FoxPro/Visual FoxPro - COPIA DE SEGURIDAD

Hola programadores como puedo hacer una copia de seguridad tengo una carpeta donde contiene todas mis tablas gracias

ESTA ES UN RUTINA PARA ALMACENAR TUS TABLAS EN LA UNIDAD A:

SET SAFETY OFF
m = MESSAGEBOX( ;
"[INICIANDO-Procedimiento] - Prepare el [DISCO] Receptor", ;
0032, "Copiando Disco [A:]")
m = MESSAGEBOX("Inserte el [DESTINO]", 0032, ;
"Copiando Disco [A:]")
cdir = "A:"
IF FILE(cdir+"NUL")
IF FILE(cdir+"NUL")
COPY FILE c:CARPETA ablas abla1.* TO a:
COPY FILE c:CARPETA ablas abla2.* TO a:

m = MESSAGEBOX("[Copia Completada]", 0032, ;
"Copiando Disco [A:]")
ELSE
n = MESSAGEBOX("Disco no se Encontró [PROCESO CANCELADO]", ;
0016, "Error")
ENDIF
ELSE
n = MESSAGEBOX("Disco no se Encontró [PROCESO CANCELADO]", 0016, ;
"Error")
ENDIF
*--

SALUDES AMIGO

CON ESTA COPIAS TODOS LAS TABLAS EN LA UNIDAD A:

respuesta=messagebox("¿ Desea efectuar el respaldo ?",4+32,"SinConCel")
if respuesta = 6
do while .t.
if diskspace ("A") = -1
res=messagebox("La unidad no esta preparada, Por favor verifique e intente de nuevo",4+64,"SinConCel")
if res = 6
loop
else
return (.f.)
endif
else
set defa to a:
wait window "La unidad esta lista..." Nowait
exit
endif
enddo

if diskspace() < 160
messagebox("Seleccione un disco vacío e intente de nuevo",0+64,"SisConCel")
else
set safety off
set defa to c:conexion
wait window "Iniciando el respaldo..." nowait

COPY FILE c:CARPETA_DONDE_ESTAN TUS_TABLAS*.* TO a:


set safety on
wait window "El respaldo ha terminado..." nowait
messagebox("El respaldo ha terminado...",0+64,"SisConCel")
endif
endif

SALUDES AMIGO

Gracias amigo