COPIAS ...
Publicado por JUANMA (503 intervenciones) el 11/09/2006 20:03:08
Hola ... deseo hacer una rutina para guardar 5 copias de una base de datos por fechas ... y que cuando tenga MAS de 5 copias que elimine la más antigua ... para el nombre de las copias utilizo la fecha:
FechaActualiz=Fdate("MiBase.dbf")
copia=Dtoc(FechaActualiz)
copy file MiBase.dbf to &copia..bak
nCopias=Adir(matriz,"*.bak")
if nCopias>5
&& como puedo borrar la copia más antigua
endif
Gracias
FechaActualiz=Fdate("MiBase.dbf")
copia=Dtoc(FechaActualiz)
copy file MiBase.dbf to &copia..bak
nCopias=Adir(matriz,"*.bak")
if nCopias>5
&& como puedo borrar la copia más antigua
endif
Gracias
Valora esta pregunta
![Me gusta: Está pregunta es útil y esta clara Me gusta: Está pregunta es útil y esta clara](/img/img.png?11.51)
![NO me gusta: Está pregunta no esta clara o no es útil No me gusta: Está pregunta no esta clara o no es útil](/img/img.png?11.51)
0