Como Pegar Via Delphi A Data De Criação Do Arquivo?

Delphi

04/05/2006

:twisted: Como pegar via delphi a data de criação do arquivo?

Obs.: Procurei muito nesse forum mas só encontro tópico referente data de modificação.

Agradeço desde já a quem puder me ajudar.


Exvasp

Exvasp

Curtidas 0

Melhor post

Leitorbinario

Leitorbinario

04/06/2006

Bem Delphianos, o código acima está incompleto, vou postar ele todo agora, mostra a Data de Criação, Data de Modificação e de brinde a data do último acesso. :lol: 

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function FileTimeToDTime(FTime: TFileTime): TDateTime;
var
  LocalFTime: TFileTime;
  STime: TSystemTime;
begin
  FileTimeToLocalFileTime(FTime, LocalFTime);
  FileTimeToSystemTime(LocalFTime, STime);
  Result := SystemTimeToDateTime(STime);
end;


procedure TForm1.Button1Click(Sender: TObject);

var
  SR: TSearchRec;
  CreateDT, AccessDT, ModifyDT: TDateTime;
begin
  if FindFirst(´c:\forum.zip´, faAnyFile, SR) = 0 then begin
    CreateDT := FileTimeToDTime(SR.FindData.ftCreationTime);
    AccessDT := FileTimeToDTime(SR.FindData.ftLastAccessTime);; 
    ModifyDT := FileTimeToDTime(SR.FindData.ftLastWriteTime);; 
    ShowMessage(´Created: ´ + DateTimeToStr(CreateDT) + 
      ´ Accessed: ´ + DateTimeToStr(AccessDT) + 
      ´ Modified: ´ + DateTimeToStr(ModifyDT));
  end
  else
    ShowMessage(´Desculpe, arquivo não encontrado leitorbinario´);

  FindClose(SR);
end;


end.



GOSTEI 2

Mais Respostas

M@gnun

M@gnun

04/05/2006

function GetFileDate(Arquivo: String): String;
var
FHandle: integer;
begin
FHandle := FileOpen(Arquivo, 0);
try
Result := DateTimeToStr(FileDateToDateTime(FileGetDate(FHandle)));
finally
FileClose(FHandle);
end;

end;


ps: uma dica ... tem uns programinhas de colotanea de dicas delphi na net ... baixe um deles, é bem util para este tipo de funcçoes ... sem querer fazer um ´merchã´ mas jah fazendo, eu uso o Deephi :idea:


GOSTEI 0
Paullsoftware

Paullsoftware

04/05/2006

[quote:feec159820=´m@gnun´]function GetFileDate(Arquivo: String): String;
var
FHandle: integer;
begin
FHandle := FileOpen(Arquivo, 0);
try
Result := DateTimeToStr(FileDateToDateTime(FileGetDate(FHandle)));
finally
FileClose(FHandle);
end;

end;


ps: uma dica ... tem uns programinhas de colotanea de dicas delphi na net ... baixe um deles, é bem util para este tipo de funcçoes ... sem querer fazer um ´merchã´ mas jah fazendo, eu uso o Deephi :idea:[/quote:feec159820]

Mais essa função não retorna a data de criação...
Retorna a data de Modificação, é a mesma que uso para fazer atualizações do meu sistema...
eu tb to atrás da função pra pegar a data de criação se alguém souber coloca ae :lol:


GOSTEI 0
Leitorbinario

Leitorbinario

04/05/2006

Não testei, vê ai se funciona. :P 

procedure TForm1.Button1Click(Sender: TObject);
var
  SR: TSearchRec;
  CreateDT, AccessDT, ModifyDT: TDateTime;
begin
  if FindFirst(´c:\test\leitorbinario.zip´, faAnyFile, SR) = 0 then begin
    CreateDT := FileTimeToDTime(SR.FindData.ftCreationTime);
    AccessDT := FileTimeToDTime(SR.FindData.ftLastAccessTime);;
    ModifyDT := FileTimeToDTime(SR.FindData.ftLastWriteTime);;
    ShowMessage(´Created: ´ + DateTimeToStr(CreateDT) +
      ´ Accessed: ´ + DateTimeToStr(AccessDT) +
      ´ Modified: ´ + DateTimeToStr(ModifyDT));
  end
  else
    ShowMessage(´Desculpe, arquivo não encontrado :( leitorbinario´);

  FindClose(SR);
end;



GOSTEI 0
POSTAR