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;