Slet gamle word filer

Først skal du have hvor gammel filen er:

function GetFileLastAccessTime(sFileName : string ) : TDateTime;
var
  ffd : TWin32FindData;
  dft : DWord;
  lft : TFileTime;
  h  : THandle;
begin
  h := Windows.FindFirstFile(PChar(sFileName), ffd);
  if (INVALID_HANDLE_VALUE <> h) then
  begin
    Windows.FindClose( h );
    FileTimeToLocalFileTime(ffd.ftLastAccessTime, lft );
    FileTimeToDosDateTime(lft, LongRec(dft).Hi, LongRec(dft).Lo);
    Result := FileDateToDateTime(dft);
  end;
end;

//Så skal du have noget kode til at få alle fil navne i en mappe:

function GetFileList(var lst: TListBox; const dir: String): integer;
var sr: TSearchRec;
begin
lst.Items.Clear;
if FindFirst(dir+'*.doc',faAnyFile,sr)=0 then try
repeat
if (sr.Attr and faDirectory) = 0 then
if GetFileLastAccessTime(dir+sr.Name) < now-20 then //Finder filer 20 dage gamle
lst.Items.Add(sr.Name);
until FindNext(sr) <> 0;
finally
FindClose(sr);
end;
Result := lst.Items.Count;
end;

Så kan du køre listboxen igennem og slette dem:

Var
i:integer;
begin
for I:=listbox.items.count-1 downto 0 do b
begin
deletefile(listbox.items.strings[I]);
end;
end;


ved sku ikke om det virker. Men det er den rutine du skal bruge.

dkn

Hej betatron/dkn!!!

hvad er det for en Komponenten du/i har brugt til

function GetFileLastAccessTime(sFileName : string ) : TDateTime

Her hvis det er en Komponenten????

Martin

det er ikke noget component, det er bare en function til det