FoxPro/Visual FoxPro - como hacer programa de backup en visual foxpro?

*--- Deberas incorporar en tu instalador PKZIP y PKUNZIP

*--- Este proceso lo puedes poner en un FORM, en un boton y en el evento CLICK

*****************************************************************************************

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 Sistema') = 2

	=MESSAGEBOX('Proceso abortado por el usuario...',0 + 0 + 0,'BackUp de Sistema')

	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

SET SAFETY OFF

SET NOTIFY OFF

SET CENTURY off

SET TALK OFF

CLOSE DATABASES

CLOSE TABLES ALL

WAIT WINDOW "Creando respaldo de Seguridad..." TIMEOUT .8

SET DEFAULT TO c:\carpeta de sistema

SET PATH TO c:\carpeta de sistema

COPY FILE c:\carpeta de sistema\*.dbf TO e:\respaldo\*.dbf

COPY FILE c:\carpeta de sistema\*.cdx TO e:\respaldo\*.cdx

WAIT WINDOW "Terminó el respaldo de datos con éxito..." TIMEOUT .8