删除指定目录下的文件(50分)

有一个固定的目录存放日志文件，日志文件是以日期命名的如：20061117.log，我想过一段时间删除大于指定时间的日志文件，怎么做？最好能提供例子

function DeleteFiles(const Path: WideString;
FileName: String): Integer;
var
FindResult: integer;
FSearchRec, DSearchRec: TSearchRec;
APath : String;
i : Integer;
begin
APath := Path;
if APath[Length(APath)] <> '/' then
APath := APath + '/';

FindResult := FindFirst(APath+'*.*', faAnyFile , FSearchRec);

try
while FindResult = 0 do
begin
if not((FSearchRec.Name='.')or(FSearchRec.Name='..')) then
begin
if FSearchRec.Name > FileName then
Deletefile(Path+FSearchRec.Name);
end;
end;
finally
FindClose(FSearchRec);
end;

end;


剛寫的，給分吧

procedure TForm1.Button1Click(Sender: TObject);
var
SearchRec: TSearchRec;
Path: string;
Found: integer;
begin
Path := 'd:/temp/';//指定目录
found := FindFirst(path+'*.log', faAnyFile, SearchRec);//指定文件扩展名，仅查找log文件
while Found = 0 do begin
if SearchRec.Attr<>faDirectory then
deletefile(path+SearchRec.Name);//不是目录则删除
Found := FindNext(SearchRec);
end;
FindClose(SearchRec);
end;

是啊 是啊，
早点结题，我就不说了^_^