FoxPro/Visual FoxPro - Backup

Hola amigos foxeros...
Por favorncesito de su exprta ayuda, estpy buscando un codigoo instrucciones como elaborar un programita para hacer copias de seguridad de bases de datos completo, si es utilizando el winzip mucho mejor... solo lespido algun ejemploo que me indique donde encuentro ejemplos...
Gracias,

Carlos, yo tengo un backup en un form, aca te mando solo la opcion de usar el backup, espero te sirva:
*
*
luni = 0
v_Unidad = GETDIR()
BU = DTOS(DATE()) && Etiqueta de Respaldo
luni = DRIVETYPE(v_unidad)
IF luni = 2 && Unidad de Diskette
d_unidad = 'BackUp en Diskette'
ELSE
IF luni = 3 && Disco duro
d_unidad = 'BackUp en Disco Duro'
ELSE
IF luni = 4 &&Unidad Extraible o Red
d_unidad = 'BackUp en Extraible o Red'
ELSE
IF luni = 5 &&CD-ROM
d_unidad = 'BackUp en CD-ROM'
ENDIF
ENDIF
ENDIF
ENDIF
*
IF MESSAGEBOX('Proceso de ' + d_unidad + CHR(13) + ;
'Confirmar proceso... Continuar?',0 + 256 + 1,'BackUp de Contabilidad') = 2
=MESSAGEBOX('Proceso abortado por el usuario...',0 + 0 + 0,'BackUp de Contabilidad')
CLOSE TABLES ALL
RETURN .F.
ENDIF
*
v_unidad = v_unidad + bu
!PKZIP -EX &v_unidad *.dbf, *.cdx
WAIT 'Proceso finalizado...' WIND AT 15,55 TIME 2
*
*RELEA THISFORM