find nyeste fil

lytter med. :-)

Det er vel bare at søge efter datoen? -> Aner ikke en shit om delphi andet end det MEST simple...

dato på filen \"minus\" nuværende dato = et tal -> det mindste tal = nyeste fil -> sådan er det vistnok i PHP :)

*kommentar fordi jeg ikke er sikker*S*

Hvorfor skriver du så noget well_r? Anold: prøv dette:

procedure TForm1.Button1Click(Sender: TObject);
var
  s: TSearchRec;
  found: boolean;
  newestfile: string;
  newesttime: integer;
begin
  newestfile:=\'Ingen fil fundet\';
  found:=false;
  if findfirst(\'E:\\ftp\\*.*\',0,s)=0 then
  begin
    repeat
      if found then
      begin
        if s.time>newesttime then
        begin
          newestfile:=s.name;
          newesttime:=s.time;
        end
      end
      else
      begin
        newestfile:=s.name;
        newesttime:=s.time;
        found:=true
      end;
    until findnext(s)<>0;
  end;
  findclose(s);
  showmessage(newestfile);


end;