delphi获取文件的创建/修改时间、按时间删除指定文件下的文件
转载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, fmShareDenyNone);
try
if hFile <> 0 then
begin
Windows.GetFileTime(hFile, nil, nil, @FileTime);
FileTimeToLocalFileTime(FileTime, LocalFileTime);
FileTime := LocalFileTime;
end;
finally
FileClose(hFile);
end;
if FileTimeToSystemTime(FileTime, SystemTime) then
Result := SystemTimeToDateTime(SystemTime);
end;
调用:
edit1.text:=datetimetostr( GetFileEditTime('E:\test\D12000398C1.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;
本文章为转载内容,我们尊重原作者对文章享有的著作权。如有内容错误或侵权问题,欢迎原作者联系我们进行内容更正或删除文章。
提问和评论都可以,用心的回复会被更多人看到
评论
发布评论
相关文章
-
Ubuntu之修改时区/时间
查看当前时间及时区状态sudo timedatectl status# 显示当前时区为Asia/Shanghai查看当前系统时间sudo date查看当前系统时间及时区sudo date -R# 显示当前时间及对应时区,时区为“+0800”北京时区修改硬件时间修改日期格式:MM月/DD日/YYYY年sudo date -s MM/DD/YYYY修改时间:hh时:mm分:ss秒 sudo date
ubuntu修改时区 ubuntu修改时间 ubuntu修改时间及时区 ubuntu修改时区和时间 ubuntu修改系统时间 -
shell删除超过指定时间的文件
shell删除超过指定时间的文件
shell删除超过指定时间的文件