13 replies to this topic

[escafandra]

En ocasiones queremos conocer cuando se creó un fichero y no cuando se modificó por última vez. Para saber este dato podemos usar esta función:

delphi

function GetCreationFileDate(FileName: String): TDate;
var
   FileData:   WIN32_FILE_ATTRIBUTE_DATA;
   SystemTime: TSYSTEMTIME;
begin
   GetFileAttributesEx(PCHAR(FileName), GetFileExInfoStandard, @FileData);
   FileTimeToSystemTime(FileData.ftCreationTime, SystemTime);
   Result:= EncodeDate(SystemTime.wYear, SystemTime.wMonth, SystemTime.wDay);
end;

O en C/C++:

cpp

TDate GetCreationFileDate(char* FileName)
{
   WIN32_FILE_ATTRIBUTE_DATA FileData;
   SYSTEMTIME SystemTime;
   GetFileAttributesEx(FileName, GetFileExInfoStandard, &FileData);
   FileTimeToSystemTime(&FileData.ftCreationTime, &SystemTime);
   return EncodeDate(SystemTime.wYear, SystemTime.wMonth, SystemTime.wDay);
}

Saludos.

PD: Edito para colocar prefijo [MULTILENGUAJE]

[seoane]

Yo lo hago así:

delphi

function GetFileModifyDate(FileName: string): TDateTime;
var
  SearchRec: TSearchRec;
begin  
  if FindFirst(Filename,faAnyFile,SearchRec) = 0 then
    Result:= FileDateToDateTime(SearchRec.Time)
  else
    Result:= 0;
  FindClose(SearchRec);
end;

Que viene siendo lo mismo 

[enecumene]

Muchas gracias a ambos

[escafandra]

Gracias a tí, enecumene.

seoane, el código que propones ¿no encuentra la fecha de modificación?. El mio encuentra la fecha de creación del fichero. Ambos son útiles, pero distintos.

Saludos.

[seoane]

seoane, el código que propones ¿no encuentra la fecha de modificación?

Exacto, es la fecha de modificación.

Pero si quieres la de creación, usamos un poco de "copy&paste" 

delphi

function GetFileCreationTime(FileName: string): TDateTime;
var
  SearchRec: TSearchRec;
  LocalFileTime: TFileTime;
  T: Integer;
begin
  if FindFirst(Filename,faAnyFile,SearchRec) = 0 then
  begin
    FileTimeToLocalFileTime(SearchRec.FindData.ftCreationTime, LocalFileTime);
    FileTimeToDosDateTime(LocalFileTime, LongRec(T).Hi, LongRec(T).Lo);
    Result:= FileDateToDateTime(T)
  end else
    Result:= 0;
  FindClose(SearchRec);
end;

[Delphius]

Hola,
Se podría decir que existen muchos caminos para llegar a Roma

Esto me hizo acordar a algo que se dijo en un congreso sobre peritaje informático hace unos años.
El expositor dio un ejemplo sencillo de como determinar si algún archivo fue adulterado basándonos en las fechas de los archivos. Es sabido que si uno copia un archivo viejo, y lo pega en otro lugar (no necesariamente) se crea dicha copia con la fecha actual, claro está. El asunto es que se modifica la fecha de creación y no la de modificación y de ese modo se puede comprobar si alguien se quiso hacer el listo. Por ejemplo:

Original
Creado: 17/04/2007
Modificado: 17/04/2007

Copia:
Creado: 27/04/2010
Modificado: 17/04/2007

Alguien más vivo dirá que se altera la hora del equipo previamente y listo... pero... resulta ser que ahora el resto de los archivos con los que habitualmente trabajan siguen teniendo la fecha actual. Con lo cual habría cierta incoherencia.

Formateamos, ponemos la fecha y hora y listo, el engaño resultó....¿O no? Mi pregunta, filosófica, que me surge ahora (no se porqué no se me ocurrió en el congreso) ¿Qué se podría hacer para determinar si realmente la fecha de creación es la que dice ser y no una anterior?

El ejemplo es hipotético, no tengo nada malo planeado por si se preguntan.

Saludos,

[seoane]

Recuerdo que hace algún tiempo unos conocidos metieron la pata a la hora de configurar un equipo dentro de un sistema de ficheros en red (...) resumiendo que adelantaron la fecha de modificación de todos los ficheros en 6 horas. Eso que para muchos de nosotros seria una simple anécdota resulto ser para ellos toda una hecatombe, ya que los archivos pertenecían al departamento de contabilidad y ellos usaban ese dato para controlar el acceso a esos ficheros (algo completamente estúpido como se vera mas adelante).

El caso es que pensaron en toda una serie de soluciones a cada cual mas exótica, hasta que les sugerí que simplemente pusieran la fecha correcta a cada fichero. No se como no se les había ocurrido antes, la solución era tan sencilla como leer la fecha actual del fichero, restarle 6 horas y volverla a escribir 

Todavía recuerdo lo asombrados que se quedaron, siendo como eran señores licenciados en informática, al ver que un programa de pocas lineas podía cambiar la fecha de todos los archivos en pocos segundos 

[egostar]

Recuerdo que hace algún tiempo unos conocidos metieron la pata a la hora de configurar un equipo dentro de un sistema de ficheros en red (...) resumiendo que adelantaron la fecha de modificación de todos los ficheros en 6 horas. Eso que para muchos de nosotros seria una simple anécdota resulto ser para ellos toda una hecatombe, ya que los archivos pertenecían al departamento de contabilidad y ellos usaban ese dato para controlar el acceso a esos ficheros (algo completamente estúpido como se vera mas adelante).

El caso es que pensaron en toda una serie de soluciones a cada cual mas exótica, hasta que les sugerí que simplemente pusieran la fecha correcta a cada fichero. No se como no se les había ocurrido antes, la solución era tan sencilla como leer la fecha actual del fichero, restarle 6 horas y volverla a escribir 

Todavía recuerdo lo asombrados que se quedaron, siendo como eran señores licenciados en informática, al ver que un programa de pocas lineas podía cambiar la fecha de todos los archivos en pocos segundos 

Vaya que cosas, suele pasar

Salud OS

[escafandra]

Todavía recuerdo lo asombrados que se quedaron, siendo como eran señores licenciados en informática, al ver que un programa de pocas lineas podía cambiar la fecha de todos los archivos en pocos segundos 

No por ser licenciado se conocen los temas a fondo ni se tiene la experiencia y, mas aún, la picardía o astucia propia de los maestros.

Saludos.

[escafandra]

¿Qué se podría hacer para determinar si realmente la fecha de creación es la que dice ser y no una anterior?

Salvando el tema de la incongruencia entre fecha de creación y de modificación del archivo, no se me ocurre otro método que escribir la fecha de creación en el propio archivo.

Saludos.

[escafandra]

Me acordé de este hilo cuando respondí a una pregunta referente a la fecha de modificación de un fichero en C, en otro foro.

Aunque seoane implementó una forma de hacerlo, yo lo hice distinto, de forma coherente a como inicié este hilo. Así, para enriquecer el asunto, expongo el código en C/C++ y delphi.
 

cpp

TDate GetModifyFileDate(char* FileName)
{
  WIN32_FILE_ATTRIBUTE_DATA FileData;
  SYSTEMTIME SystemTime;
  GetFileAttributesEx(FileName, GetFileExInfoStandard, &FileData);
  FileTimeToSystemTime(&FileData.ftLastWriteTime, &SystemTime);
  return EncodeDate(SystemTime.wYear, SystemTime.wMonth, SystemTime.wDay);
}

delphi

function GetModifyFileDate(FileName: String): TDate;
var
  FileData:  WIN32_FILE_ATTRIBUTE_DATA;
  SystemTime: TSYSTEMTIME;
begin
  GetFileAttributesEx(PCHAR(FileName), GetFileExInfoStandard, @FileData);
  FileTimeToSystemTime(FileData.ftLastWriteTime, SystemTime);
  Result:= EncodeDate(SystemTime.wYear, SystemTime.wMonth, SystemTime.wDay);
end;

Saludos.

[escafandra]

Y para añadir algo mas, solo y solo si vamos a abrir el archivo, o estamos seguros de que no está en uso, podemos saber la fecha de modificación de esta manera:

delphi

function GetModifyFileDate(FileName: String): TDate;
var
  hFile: integer;
begin
   Result:= 0;
   hFile:= FileOpen(PCHAR(FileName), fmOpenRead);
   if(hFile = -1) then exit;
   Result:= FileDateToDateTime(FileGetDate(hFile));
   FileClose(hFile);
end;

Es un uso de la función de delphi FileGetDate. También se podría usar la API GetFileTime.

Recalco que no es buena idea abrir un archivo para conocer ciertos atributos, pero si ya vamos a abrirlo entonces puede ser un método perfecto.



Saludos.

[egostar]

¿ Y si quisieramos que la función valíde si está abierto un archivo porque no sabemos si está en uso o no ? Digamos para procesos donde no existe la mano de hombre ¿?

Digo, ya que estamos en eso

Salud OS

PD, Y digo hombre sin tintes sexistas, me parece más sexista andar diciendo -hombres y mujeres-, -las y los-, -niñas y niños-, etc, etc

[escafandra]

¿ Y si quisieramos que la función valíde si está abierto un archivo porque no sabemos si está en uso o no ? Digamos para procesos donde no existe la mano de hombre ¿?

Bueno, la última función trata de abrir el fichero y si no lo consigue desiste.
Un fichero en uso no compartido no podrá ser abierto de nuevo, es por eso que prefiero el uso de la API GetFileAttributesEx o la implementación de seoane. Ninguna de las dos requiere la apertura del fichero.

PD, Y digo hombre sin tintes sexistas, me parece más sexista andar diciendo -hombres y mujeres-, -las y los-, -niñas y niños-, etc, etc

Efectivamente es mas sexista forzar el idioma para hacer la distinción de género. En español está muy claro el género que debe usarse cuando el sustantivo se usa con carácter general.


Saludos.