Cambiar fecha y hora a un archivo - SOLUCIONADO

[rolando]

Buenas tardes,

Necesito cambiar la fecha y hora a un archivo y lo intenté con el ejemplo visto en
http://forums.fivetechsupport.com/viewtopic.php?f=6&t=205&p=657&hilit=cambiar+fecha+file#p657
que copio a continuación:

Code: Select all  Expand view

hFile := Fopen("ficheroafechar.ext")
SetFTime(hFile, "10:20:59", "15:01:2005")
Fclose(hFile)

Pero lamentablemente no hace ningún efecto probándolo en W7 y en máquina virtual con Win XP.

¿Hay algún modo de lograr cambiar fecha y hora a un archivo?.

Gracias.

Rolando

[lucasdebeltran]

Hola:

Yo hace tiempo lo intenté con esas funciones y ya no funcionan adecuadamente.

[Antonio Linares]

Rolando, Lucas,

Acabo de probar FWH/samples/testfdat.prg y ha funcionado correctamente en Windows 7 32 bits.

Podeis construir ese ejmplo y probarlo ? gracias

[sysctrl2]

OK. EN WIN 8 !!

[rolando]

Antonio,

Muchas gracias por responder.

El error fue mío por no buscar en los samples. Fui directo al foro y lo que encontré como ejemplo se nota que es viejo y ya cambió o está mal en su sintaxis.

Colocando la sintaxis del ejemplo funciona correctamente.

Lo que sí noto es que la hora es "transformada" según UTC-3. Es decir, si le indico como hora "10:21:00", en el archivo le coloca "07:21:00".

Pareciera que toma la hora a colocar como hora "0" UTC y automáticamente le resta -3 (hora de Argentina). No sería gran problema pues le agrego 3 a la hora pero sólo por curiosidad, ¿Se puede modificar esto?

Saludos.

Rolando

[lucasdebeltran]

Antonio,

La función sigue con el bug, no cambia la hora, sólo la fecha:

Code: Select all  Expand view

#include "fileio.ch"
#include "fivewin.ch"

function main()

set date to italian
set century on

test()

return nil



function test()

   local cApp   := "c:\windows\explorer.exe" //cFileName(GetModuleFileName(GetInstance()))
   local hFile  := FOpen( cApp, FO_READWRITE )

   local hFile2
   local dFecha := FileDate( cApp )
   local tHora  := FileTime( cApp )

   FClose( hFile )

   msgalert(cvaltochar(dFecha)+CRLF+CRLF+cValtochar(thora))



   hFile2 := FOpen( "fecha.prg", FO_READWRITE )

   SetFTime( hFile2, tHora, dFecha )

   FClose( hFile2 )


   dFecha := FileDate( "fecha.prg" )
   tHora  := FileTime( "fecha.prg" )

   msgalert(cvaltochar(dFecha)+CRLF+CRLF+cValtochar(thora), " de fecha.prg ")


return nil
 

Muchas gracias-

[quique]

Prueba con

SetFDaTi( <cFileName> , [<dFileDate>], [<cFileTime>] ) --> lSuccess

de (x)Harbour

[rolando]

Quique,

Gracias por el dato. Funciona ok sin tanta vuelta.

Rolando