Datei nach Änderungsdatum suchen

[dumper]

Hallo,

Wie kann ich in einem Ordner nach einer Datei mit dem aktuellsten Änderungsdatum gesucht werden?

[Luckie]

Genauso, wie man auch sonst Dateien sucht: FindFirst / FindNext.

[himitsu]

mit FindFirst/FindNext das Verzeichnis in eine Liste einlesen
und diese nach Datum absteigend sortieren ... der 1. Eintrag ist dann das Neuste.

oder

mit FindFirst die erste Datei suchen
diese und ihr Datum merken
dann mit FindNext die restlichen Dateien merken, wenn das Datum neuer ist, als die gemerkte Datei, dann diese Datei jetzt merken
usw.
zum Schluß hatte man sich die aktuellste gemerkt

[dumper]

Code:

function TForm1.SetLatestZip(path: String): String;
var Temp : integer;
    SearchRec: TSearchRec;
    LatestDateDt : TDateTime;
    DateDt : TDateTime;
begin
  FindFirst(path+'\*.zip', faAnyFile, SearchRec);
  while (FindNext(SearchRec)=0) do
  begin
    temp    :=FileAge(path+'\'+SearchRec.Name);
    DateDt  :=FileDateToDateTime(temp);
    if result ='' then
    begin
      result :=  SearchRec.Name;
      LatestDateDt := DateDt;
    end
    else
    begin
      if DateDt > LatestDateDt then
      begin
        result := SearchRec.Name;
        LatestDateDt := DateDt;
      end;
    end;
  end;
end;

iwas stimmt da nicht...
die erste datei im ordner wird übersprungen.. er fängt immer mit der 2ten an..

[Sharky]

Du solltest auch auswerten was FindFirst liefert.

[hoika]

Hallo,

FindFirst liefert bei True schon die 1 Datei.

Schau mal das Bsp. in der Hilfe an.

Ausserdem fehlt FindClose.



Heiko

[DeddyH]

Pseudocode:

Delphi-Quellcode:

if FindFirst(...) = 0 then
  try
    repeat
      ...
    until FindNext(...) <> 0;
  finally
    FindClose(...);
  end;

[dumper]

ohja geht nun alles.
noch eine frage .. wie kann ich eine .txt datei aus einem .zip archiv auslesen .. habe delphizip drauf aber geht das nicht auch so ?

danke für antwort

[Sharky]

Zitat von dumper:

ohja geht nun alles.
noch eine frage .....

Bitte mache für eine neue Frage einen neuen Thread auf.