Fórum Como Pegar Via Delphi A Data De Criação Do Arquivo? #320595

04/05/2006

0

Delphi

: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

Responder

Post mais votado

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:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
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.



Leitorbinario

Leitorbinario
Responder

Gostei + 2

Mais Posts

04/05/2006

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:


Responder

Gostei + 0

04/05/2006

Paullsoftware

[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:


Responder

Gostei + 0

04/06/2006

Leitorbinario

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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;



Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar