FoxPro/Visual FoxPro - Backup (para Luis)

 
Vista:

Backup (para Luis)

Publicado por andy (228 intervenciones) el 05/12/2009 01:51:05
Esta rutina guarda todos los archivos de la subcarpeta ..\DATOS, (CAMABIALA SI QUIERES)
un archivo RAR con el prefijo BK_ , la fecha y hora de efectuada o sea queda algo asi:
BK_041220092130.RAR y te da la opcion de elegir donde guardarla, debes tener
el winrar.exe en la carpeta de tu aplicacion

lcDirectorio=sys(5)+sys(2003)
m.archivo=DTOC(DATE())
m.archivo=CHRTRAN(m.archivo, "/","")
hora=CHRTRAN(time(), ":","")
m.archivo='BK_'+m.archivo+left(hora, 4)+'.rar'
mrutat=lcDirectorio+"\DATOS\*.*"
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')
ruta=getdir()
final=ruta+m.archivo
copy file (lcadena) to (final)
=messagebox('COPIA DE SEGURIDAD REALIZADA',0+32,'Atención')
erase (m.archivo)
return
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Gracias Andy

Publicado por Luis (8 intervenciones) el 05/12/2009 02:58:52
Muchas gracias Andy
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar