FoxPro/Visual FoxPro - COPIA DE SEGURIDAD

   
Vista:

COPIA DE SEGURIDAD

Publicado por Sebastian (253 intervenciones) el 29/01/2009 19:27:38
Hola programadores como puedo hacer una copia de seguridad tengo una carpeta donde contiene todas mis tablas gracias
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

RE:COPIA DE SEGURIDAD

Publicado por HELDER MARTINEZ (COUNDY)  (710 intervenciones) el 29/01/2009 19:53:39
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
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

RE:COPIA DE SEGURIDAD

Publicado por HELDER MARTINEZ (COUNDY)  (710 intervenciones) el 29/01/2009 19:57:20
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
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

RE:COPIA DE SEGURIDAD

Publicado por Sebastian (253 intervenciones) el 30/01/2009 16:56:40
Gracias amigo
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