Ændring af file date

Filesetdate burde virke sådan:

  FileHandle : Integer;
begin
  FileHandle := FileOpen(FileName, fmOpenWrite or fmShareDenyNone);
  if FileHandle > 0 then
  begin
    if FileSetDate(FileHandle,DateTimeToFileDate(strtodatetime('02-02-2000 17:25:00')) = 0 then
    begin
      showmessage('Filedate rettet');
    end else
    begin
      showmessage('Fejl ved datoændring');
    end;
  end else
  begin
    Showmessage('File not valid');
  end;
end;

sjensen

ups, der mangler lige en højre parantes for enden af filesetdate linien.

Jeg glemte lige at svare på om der findes andre måder:

1. open filen, rename den, luk den, åben din igen, rename den tilbage og luk den igen. Så er datoen rettet til dendato systemet har.

2. open filen, create en ny, blok læs fra orgfil og blokskriv i ny fil, luk begge filer, delete orgfil, rename nyfil til orgfil. Det rettet også datoen til den nuværende.

Og du kan jo midlertidigt sætte datoen  i maskinen til den dato du har brug for.

Endeligt kan du selvfølgeligt bruge Windows API kaldene Get- og setfiletime. Her har du mulighed for at arbejde med alle datoer: Oprettet, sidst ændret og sidst åbnet.

sjensen

du har ret - FileSetDate virker fint - jeg havde bare glemt at åbne filen i write mode - i min naivitet havde jeg forventet at open mode kun var minded på filens indhold (tsk tsk tsk)

tak :)