FoxPro/Visual FoxPro - Guardar archivo y agregarle la fecha del dia al nombre del archivo

   
Vista:

Guardar archivo y agregarle la fecha del dia al nombre del archivo

Publicado por Néstor (23 intervenciones) el 15/07/2016 14:38:33
Saludos expertos como están??...

Ando buscando la forma de como guardar un archivo y que agregado a el tenga la fecha del día.

He probado con el copy file y logro hacer la copia del archivo y hasta lo puedo renombrar mas no he logrado agregar la fecha y de esta otra forma:

1
2
3
4
5
f_guarda=PUTFILE("Guardar Excel","Excel","xls")
IF !EMPTY(f_guarda)
COPY TO (f_guarda) TYPE XLS
ELSE
ENDIF
pero nada que logro agregar la fecha...

Espero me puedan ayudar y muchisimas 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

Guardar archivo y agregarle la fecha del dia al nombre del archivo

Publicado por Fidel José (319 intervenciones) el 15/07/2016 15:33:35
Algo así:
lcFileName = ForceExt("Archivo_"+TTOC(datetime(),1),"xls")

ó

1
2
3
4
lcFileName = PUTFILE("Guardar Excel","xls")
IF !EMPTY(m.lcFileName)
	lcFileName = FORCEEXT( ADDBS(JUSTPATH(m.lcFileName))+JUSTSTEM(m.lcFileName)+"_"+TTOC(DATETIME(),1),"xls")
ENDIF
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

Guardar archivo y agregarle la fecha del dia al nombre del archivo

Publicado por wences (30 intervenciones) el 15/07/2016 18:12:28
Puedes añadirle la fecha antes de grabar , pero para eso tienes que transformarla a caracter

fecha=dtoc(date())

con esto ya es un caracter y lo puedes añadir al nombre , ojo que el resultado tendra las barras y algunos nombres no los permiten ... así que tendrias que usar

fecha=strtran(dtoc(date()),"/","")

Así ya no usa las barras

también puedes usar dtos(date()) , este lo pone en año , mes , dia sin barras ni nada

Si ya tienes el nombre , puedes renombrarlo usando el mismo proceso ..

Espero te sirva ...
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