Fecha de Archivo

[vtdeleon]

Saludos

Como puedo saber la fecha y/o hora de creacion o modificacion de un archivo cualquiera ?

[Neftali [Germán.Estévez]]

Aquí tienes una funcioncilla que te devuelve las fechas de un archivos tal i como se ven en las propiedades (Creación, última modificación y último acceso). Está basada en un Tip que encontré por Internet (Chami.com concretamente) y modificada para que devuelve las tres posibilidades, segun un parámetro que le pasas.

Código Delphi [-]
 //------------------------------------------------------------------------------
 function GetFileLastAccessTime(sFileName:string;
                               Date:Integer
                               {0=creation;
                               1=Ultima escritura
                               2=Ultimo Acceso} ):TDateTime;
 var
   ffd : TWin32FindData;
   dft : DWord;
   lft : TFileTime;
   h   : THandle;
 begin
   // Buscamos la información (fichero)
   h := Windows.FindFirstFile(PChar(sFileName), ffd);
   // Encontrado?
   if(INVALID_HANDLE_VALUE <> h)then begin
     // Sólo buscamos uno, por lo tantocerramos la búsqueda
     Windows.FindClose( h );
     // segun el tipo de fecha
     if (Date = 0) then begin
       FileTimeToLocalFileTime(ffd.ftCreationTime, lft);
     end
     else if (Date = 1) then begin
       FileTimeToLocalFileTime(ffd.ftLastWriteTime, lft);
     end
     else if (Date = 2) then begin
       FileTimeToLocalFileTime(ffd.ftLastAccessTime, lft);
     end
     else begin
       // Tipo Incorrecto
       Exit;
     end;
 
     // Lo convierte a DOS-Time
     FileTimeToDosDateTime(lft, LongRec(dft).Hi, LongRec(dft).Lo);
     // finalmente lo vuelve a convertir al tipo Delphi (TDateTime)
     Result := FileDateToDateTime(dft);
   end;
 end;
 //------------------------------------------------------------------------------

Para utilizarla basta un código como éste:

Código Delphi [-]
   Str := 'c:\Temp\MSG_File.log';
   Str := DateTimeToStr(GetFileLastAccessTime(Str, 0));
   Memo1.Lines.Add('Creacion: ' + Str);
   Memo1.Lines.Add('------------------------');
   Str := 'c:\Temp\MSG_File.log';
   Str := DateTimeToStr(GetFileLastAccessTime(Str, 1));
   Memo1.Lines.Add('Última escritura: ' + Str);
   Memo1.Lines.Add('------------------------');
   Str := 'c:\Temp\MSG_File.log';
   Str := DateTimeToStr(GetFileLastAccessTime(Str, 2));
   Memo1.Lines.Add('Último Acceso: ' + Str);
   Memo1.Lines.Add('------------------------');

Delphi posee en la Unit SysUtils la función FileAge, que utiliza ftLastWriteTime (que supongo que es el más utilizado), de forma que es una variante más concreta de ésta.