Fil ældrere end 4 dage?

function GetFileModifyDate(FileName: string): TDateTime;
var
  h: THandle;
  Struct: TOFSTRUCT;
  lastwrite: Integer;

begin
  h := OpenFile(PChar(FileName), Struct, OF_SHARE_DENY_NONE);
  try
    if h <> HFILE_ERROR then
    begin
      lastwrite := FileGetDate(h);
      //Result    := FormatDateTime('DDDD, d. mmmm yyyy hh:mm:ss', FileDateToDateTime(lastwrite));
      Result := FileDateToDateTime(lastwrite);
    end;
  finally
    CloseHandle(h);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  DageGammel: Integer;
begin
  DageGammel := 4;
  If (Now - (GetFileModifyDate('e:\test.txt'))) >= DageGammel Then
    ShowMessage('Er mindst 4 dage gammel')
  Else
    ShowMessage('Er mindre end 4 dage gammel');
end;


Snowball

Bemærk at jeg har lavet om på GetFileModifyDate funktionen !

Snowball

http://borrisholt.com/eksperten/FileDate.zip

jens B

Bemærk i skyder gårspurve med kanoner.

Tester lige :)
Du har lavet result-typen om til TDateTime istedet for string?

Når nu du alligevel løber dit biblotek i gennem med find first find Next, er der ingen grund til at "tage" fat i filen igen

Jens: Hvad er der nu galt i at skyde gråspurve med kanoner !? ;)

Snowball

Jeg løber ingenting igennem der er tale om 1 fil der skal tjekkes. Men det du har lavet ser da meget smart ud men hvad er sAge? Er det ikke udfra filens oprettelses dato? Og IKKE filens 'ændret' dato?

Det er alderen på filen. Det samme som du har i lastwrite.

Jeg skal bare ikke have fat i filen to gange for at få resultatet ....

Jeg troede blot der var tale om flere filer du skulle chekke.

Jens B

snowball >> Jeg er godt klar over det gennem tiderene har vret en yndet sport Og iøvrigt var det Svaner man skød med kanoner, helt op i slutningen af 1700 tallet var det en populr sport blandt adlen og monarken.

Det er ikke moderne mere !

Jens B

Og iøvrigt er min løsning bedere en din !

(Det er nemlig min)

ÆV BÆV !
Jens B

Snowball svarede først og det var hans svar jeg endte med at bruge så point til ham! Jeg kan ikke helt se hvorfor din er bedre borrisholt så derfor ingen point til dig.

Det var bare pjat ... Men løsning var bedere fordi det var min :-)

Hehe ok :) Selvtillid er en god ting men borris burde du ikke ta' og lave en ordentlig hjemmeside? Den er jo mega fucked!