如何取得文件的修改或创建日期(100分)

S

shxcn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-05

• #1

想能过程序取得指定文件的修改或创建日期。

 

X

xiaod

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-05

• #2

FileGetDate

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-05

• #3

获得文件的三种日期 (创建、最后修改、最后访问)
Procedure GetFileTimes( filename: String;
Var creationtime,
lastaccesstime,
lastwritetime: TFileTime);
begin
If FindFirst( filename, faAnyfile, Srec ) = 0 then
try
With SRec.FindData do

begin
creationtime := ftCreationTime ;
lastaccesstime := ftLastAccessTime ;
lastwritetime := ftLastWriteTime ;
end;
finally
FindClose( SRec );
end
end;

 

完

完颜康

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-05

• #4

procdeure GetFileTime(const Tf:string);
{ 获取文件时间，Tf表示目标文件路径和名称 }
const
Model='yyyy/mm/dd,hh:mm:ss';
{ 设定时间格式 }
var
Tp:TSearchRec;
{ 申明Tp为一个查找记录 }
T1,T2,T3:string;
begin
FindFirst(Tf,faAnyFile,Tp);
{ 查找目标文件 } T1:=FormatDateTime(Model,
CovFileDate(Tp.FindData.ftCreationTime)));
{ 返回文件的创建时间 }
T2:=FormatDateTime(Model,
CovFileDate(Tp.FindData.ftLastWriteTime)));
{ 返回文件的修改时间 }
T3:=FormatDateTime(Model,Now));
{ 返回文件的当前访问时间 }
FindClose(Tp);
end;

 

H

hq_pan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-05

• #5

如果不想自己写，那就下一个Jedi Code Library(JCL), 最新版本1.21, 3.2M

 

S

stuwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-05

• #6

推荐完颜康的方法

 

S

shxcn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-06

• #7

不对，CovFileDate这个函数报没有定义；

 

S

shxcn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-17

• #8

hq_pan:10
jsxjd20:20
stuwei:10
xiaod:20
完颜康:40