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

  • 主题发起人 主题发起人 shxcn
  • 开始时间 开始时间
S

shxcn

Unregistered / Unconfirmed
GUEST, unregistred user!
想能过程序取得指定文件的修改或创建日期。
 
FileGetDate
 
获得文件的三种日期 (创建、最后修改、最后访问)
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;

 
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;

 
如果不想自己写,那就下一个Jedi Code Library(JCL), 最新版本1.21, 3.2M
 
推荐完颜康的方法
 
不对,CovFileDate这个函数报没有定义;
 
hq_pan:10
jsxjd20:20
stuwei:10
xiaod:20
完颜康:40
 
后退
顶部