FoxPro/Visual FoxPro - copias de seguridad

CLOSE DATABASES

SET CENTURY ON

SET DATE FRENCH

m.archivo=DTOC(DATE())

m.archivo=CHRTRAN(m.archivo, "/","")

hora=CHRTRAN(time(), ":","")

m.archivo='BK_'+m.archivo+left(hora, 4)+'.rar'

mrutat=lcDirectorio+"\DATOS\*.DBF"

LCADENA= lcdirectorio+'\'+m.archivo

RUN /N WINRAR.EXE a &lcadena &mrutat

=messagebox('Elija, por favor la carpeta donde guardara la copia de seguridad',0+32,'Atención')

final=GETDIR()

final=final+m.archivo

COPY FILE (lcadena) TO (final)

=messagebox('COPIA DE SEGURIDAD REALIZADA',0+32,'Atención')

ERASE (m.archivo)

RETURN

Wait "Generando Copia de Respaldo... Esperar..!" window nowait

_tmp=thisform.txtDir.value+thisform.txtFile.value

_tmp1= _tmp + ".ZIP"

If file("&_tmp1")

    Delete File &_tmp1

Endif

AZIP(.t.,_tmp,"*.DBF")

AZIP(.t.,_tmp,"*.CDX")

AZIP(.t.,_tmp,"*.TXT")

AZIP(.t.,_tmp,"*.FPT")

AZIP(.t.,_tmp,"ultra\*.*")

AZIP(.t.,_tmp,"LABORATORIOS\*.*")

Messagebox("Copia de Seguridad de Datos"+Chr(13)+"Concluyó satisfactoriamente.",48+0,"< PROCESO CONCLUIDO >")

*tbrBarra.enabled=.T.

Release thisform

Return