delphi 查找并删除过期的日志目录

本文整理自网络，侵删。

 
uses ShellAPI,DateUtils;

procedure  RemoveLogDirectory(DirecName: string);
var
  F: TSHFILEOPSTRUCT;
begin
  try
    FillChar(F, SizeOf(F), 0);
    with F do
    begin
      Wnd := 0;
      wFunc := FO_DELETE;
      pFrom := PChar(DirecName+#0);
      pTo := PChar(DirecName+#0);
      ///可还原无确认错误提示
      fFlags := FOF_NOCONFIRMATION+FOF_NOERRORUI;
    end;
    SHFileOperation(F);
  except
  end;
end;

procedure  DeleteLogDirc(LogPath: string;Days: Integer);
var
  Sr1 : TsearchRec;
  PathStr : string;
begin
  PathStr := LogPath;
  if FindFirst(PathStr+'*.*',faAnyFile,SR1)=0 then
  begin
    if (Sr1.Name <>'.') and (SR1.Name <> '..') then
    begin
      if SR1.Attr = faDirectory then
      begin
        if Sr1.Name <(FormatDateTime('YYYYMMDD',IncDay(Now,-Days))) then
          RemoveLogDirectory(PathStr+Sr1.Name);
      end;
    end;
    while FindNext(SR1)=0 do
    begin
      if (Sr1.Name <>'.') and (SR1.Name <> '..') then
      begin
        if SR1.Attr = faDirectory then
        begin
          if Sr1.Name <(FormatDateTime('YYYYMMDD',IncDay(Now,-Days))) then
            RemoveLogDirectory(PathStr+Sr1.Name);
        end;
      end;
    end;
    FindClose(SR1);
  end;
end;

 

相关阅读 >>

Delphi 不可移动的窗体

Delphi 最全_日期格式_dateutils时间单元说明

Delphi 如何让scrollbox的内容与滚动条一起实时滚动

Delphi xe5 android 设置权限

firemonkey下使用stylebook的一些经验

Delphi中的free和nil

Delphi xe5 for android 退出提示

Delphi监控文件夹

Delphi代码中嵌入asm代码

Delphi 如何确定活动桌面是否已启用

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 查找并删除过期的日志目录