neuste Datei in Ordner + Dateiendung

[Metallicwar]

Hallo zusammen,
ich suchte eine Funktion, die mir die aktuellste Datei aus einem Ordner anzeigt.
Ich bin in DP auch fündig geworden. Allerdings möchte ich gerne noch an diese "neuste Datei" die Dateiendung stehen haben (z.B. txt, .csv, etc)

Delphi-Quellcode:

function GetNewestFile(dir: string): string;
var
  F: TSearchRec;
  Time: Integer;
begin
  dir := IncludeTrailingPathDelimiter(dir);
  Time := 0;
  Result := '';

  if FindFirst(dir + '*.*', faAnyFile, F) = 0 then
  try
    repeat
      if (F.Name <> '.') and (F.Name <> '..') and ((F.Attr and faDirectory) <> faDirectory) then
      begin
        if F.Time > Time then
        begin
          Result := F.Name//+ExtractFileExt(F.Name); habe angenommen so würde es funktionieren, tut es aber nicht :)
          Time := F.Time
        end;
      end;
    until FindNext(F) <> 0;
  finally
    FindClose(F);
  end;
end;

MfG David
Freu mich über Hilfe !

[Bummi]

Zitat:

TSearchRec
.......
Name enthält den Basisdateinamen sowie die Namenserweiterung.

Fehlt bei Dir wirklich die Namenserweiterung?

[Matze]

Ich erhalte bei der Funktion den Dateinamen einschließlich der Dateierweiterung (sofern du das fehlende Semikolon nach

Delphi-Quellcode:

Result := F.Name

ergänzt ;) ).

Daher vermute ich, dass der Fehler wo anders liegt.
Vielleicht ein versehentlicher Aufruf wie

Delphi-Quellcode:

ExtractFileName(GetNewestFile(...))

. Sowas hatte ich mal und den Fehler in der Funktion gesucht, die jedoch tadellos funktionierte.

[himitsu]

Auch bei mir waren die bisher immer vorhanden.

PS:

Zitat:

F.Name//+ExtractFileExt(F.Name); habe angenommen so würde es funktionieren, tut es aber nicht :)

Wenn in F.Name wirklich keine Dateiendung vorhanden wäre,
wo sollte denn ExtractFileExt diese hernehmen?

Es ist also nicht verwunderlich, daß sowas nicht funktioniert und wenn, dann wäre diese Endung nun eher doppelt vorhanden.

[Metallicwar]

ooh man :( *grins*
Manchmal liegen die Fehler eben doch nicht in Delphi, wie in diesem Fall.
In dem Ordner lagen zwei unvollständige Dateien ohne Dateiformat und diese waren die neuesten :)
--> Die zwei Dateien gelöscht, schon zeigt er mir die aktuellste Datei mit Dateiendung an. :)
Danke
MfG

[himitsu]

PS: Im Windows Explorer (Extras > Ordneroptionen) kann man irgendwo ein Häkchen bei "Erweiterungen bekannter Dateitypen ausblenden" wegmachen.

[haentschman]

Zitat:

"Erweiterungen bekannter Dateitypen ausblenden"

...ist das erste was man auf einem System machen sollte, damit keine "Glückwunsch.pdf.exe" zur "Glückwunsch.pdf" mutiert und irgend ein Blindflieger diese öffnet. So was wird gern als Mailanhang von ganz guten Freunden verschickt 8-)

[p80286]

Zitat:

Zitat von himitsu (Beitrag 1084299)

PS: Im Windows Explorer (Extras > Ordneroptionen) kann man irgendwo ein Häkchen bei "Erweiterungen bekannter Dateitypen ausblenden" wegmachen.

Das es diesen Blödsinn immer noch gibt, zeigt nur, was von Windows zu halten ist.

Gruß
K-H