delphi获取文件的创建/修改时间、按时间删除指定文件下的文件
发布时间：2020-12-15 09:56:25 所属栏目：大数据 来源：网络整理
导读：? ? uses ? Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, ? Dialogs,StdCtrls, DateUtils ; ... //获取文件的创建时间 function GetFileCreationTime(const FileName: String): TDateTime; var ? FileTime: TFileTime; ? LocalFile
??
uses
? Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
? Dialogs,StdCtrls,DateUtils;
...
//获取文件的创建时间
function GetFileCreationTime(const FileName: String): TDateTime;
var
? FileTime: TFileTime;
? LocalFileTime: TFileTime;
? hFile: THandle;
? SystemTime: TSystemTime;
begin
? Result := 0;
? FileTime.dwLowDateTime := 0;
? FileTime.dwHighDateTime := 0;
? hFile := FileOpen(FileName,fmShareDenyNone);
? try
? ? if hFile <> 0 then
? ? begin
? ? ? Windows.GetFileTime(hFile,@FileTime,nil,nil);
? ? ? FileTimeToLocalFileTime(FileTime,LocalFileTime);
? ? ? FileTime := LocalFileTime;
? ? end;
? finally
? ? FileClose(hFile);
? end;
? if FileTimeToSystemTime(FileTime,SystemTime) then
? ? Result := SystemTimeToDateTime(SystemTime);
end;
?
//获取文件的修改时间
function GetFileEditTime(const FileName: String): TDateTime;
var
? FileTime: TFileTime;
? LocalFileTime: TFileTime;
? hFile: THandle;
? SystemTime: TSystemTime;
begin
? Result := 0;
? FileTime.dwLowDateTime := 0;
? FileTime.dwHighDateTime := 0;
? hFile := FileOpen(FileName,@FileTime);
? ? ? FileTimeToLocalFileTime(FileTime,SystemTime) then
? ? Result := SystemTimeToDateTime(SystemTime);
end;
?
调用：
edit1.text:=datetimetostr( GetFileEditTime(‘E:testD12000398C1.csv‘));
?
获取文件夹下的所有文件名称、按文件的修改时间删除指定的文件
procedure TForm1.Button2Click(Sender: TObject);
var
? ?r:TsearchRec;
? ?filelist:Tstringlist;
? ?i:integer;
begin
? ? filelist:=Tstringlist.create;
? ? if findfirst(‘e:test‘+‘*.csv‘,faanyfile,r)=0 then filelist.add(r.name);
? ? while findnext(r)=0 do
? ? filelist.add(r.name);
? ? findclose(r);
? ? //这样filelist中就保存了你输入的文件夹下的所有文件，我下面显示在一个memo组件中了
? ? for i:=0 to filelist.count-1 do
? ? begin
? ? ? if hoursBetween(GetFileEditTime(‘E:test‘+filelist[i]),Now)>48 ?then
? ? ? ? ?begin
? ? ? ? ? ? try
? ? ? ? ? ? deletefile(‘E:test‘+filelist[i]);
? ? ? ? ? ? except
? ? ? ? ? ? end;
? ? ? ? ?end;
? ? ? ?//memo1.lines.text:=memo1.lines.text+filelist[i]+#13;
? ? end;
? ? filelist.free;
end;
（编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |