Potrzebna mi jest funkcja która pozwoli usunąć pliki starsze niż np: 10 dni.
Chodzi o usuwanie przestarzałych raportów.
Zrobiłem co prawda działającą funkcję do tego, ale boję się aby nie wystąpił błąd przy obróbce (porównywaniu) daty aktualnej (systemowej) z pobraną z pliku (ostatnia modyfikacja pliku).
Oto kod:
function WiekPliku(Plik, Dni : string) : Boolean;
var
SearchRec : TSearchRec;
Bylo, Jest: TDateTime;
begin
Result := False;
Jest := Date;
if FindFirst(Plik, faAnyFile, SearchRec) = 0 then
begin
Bylo := FileDateToDateTime(SearchRec.Time);
FindClose(SearchRec);
if inttostr(DaysBetween(Jest, Bylo)) >= Dni then Result := True
else Result := False;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if WiekPliku(Edit1.Text, '10') = True then // DeleteFile(Edit1.Text);
ShowMessage('Plik jest stary: ma ponad 10 dni')
else
ShowMessage('Plik jest nowy: ma mniej niż 10 dni');
end;
Jeśli macie jakieś gotowe procedury do rozpoznawania "wieku pliku" to proszę o podanie [soczek]