Dateidatum simple ermitteln

[Coder]

Hallo, und zwar möchte ich recht einfach das Datum einer Datei ermitteln.

Hierzu habe ich bisher immer folgende selbstgebastelte Function verwendet, wollte aber nun mal fragen, ob es da nicht was effizienteres gibt?

Delphi-Quellcode:

function DateSizeOfFile(Fname: string): string;
var Rec: TSearchRec;
  sim: string;
  Filename, Path: string;

begin
  Path := '';
  FileName := Fname;
  if FindFirst(Path + FileName, faAnyFile - faDirectory, Rec) = 0 then
  try
    repeat

          Sim := Datetimetostr(FileDateToDateTime(Rec.Time)) + '  '+ inttostr(Rec.Size)+ ' Byte';
    until FindNext(Rec) <> 0;
  finally
    FindClose(Rec);
    result := Sim;
  end;
end;

[xZise]

Moin Coder,

soll das so sein, dass nur die letzten Dateiinfos zurückgegeben werden?
Wenn ja, dann könntest du dir das ständige codieren sparen. Stattdessen speicherst du das SearchRec zwischen und sobald er die Schleife verlässt nimmt er das zwischengespeicherte Rec und liest daraus die Daten aus?

Und TimeD/SizeD werden gar nicht verwendet?

MfG
xZise

[Coder]

äh, wie meinste Zwischenspeichern?
was meinste mit ständigem Codieren?

zudem wollte ich fragen, ob man diese Function (immer das ganze Verzeichnis nach einem Dateinamen scannen, nur um Dateidatum und Größe EINER einzelnen Datei herauszubekommen) auf etwa z.B. 1 Zeile Code reduzieren könnte?
Oder geht das am besten nur über den SearchRec?

[Luckie]

Also wenn du die datei kennt, kannst du sie natürlcih direkt angeben. Ich verstehe deinen Code sowieso nicht so ganz. Du kennst offensichtlich den dateinamen:
function DateSizeOfFile(Fname: string): string; Und läufst trotzdem in einer Schleife alle Dateien durch oder was machst du da?

[Coder]

Zitat von Luckie:

Also wenn du die datei kennt, kannst du sie natürlcih direkt angeben. Ich verstehe deinen Code sowieso nicht so ganz. Du kennst offensichtlich den dateinamen:
function DateSizeOfFile(Fname: string): string;

ja, so rufe ich die Funktion auf:

Edit2.text := DateSizeOfFile (Edit1.text);

Zitat:

Und läufst trotzdem in einer Schleife alle Dateien durch oder was machst du da?

ja, ich weiß, das hab ich aus einer Function gekürz, die mir alle Dateien in einem Verzeichnis auflistet. Und da ich jetzt nur noch das Dateidatum +Größe brauchte ...

Aber wie soll ich denn sonst an das Dateidatum kommen?
Es geht doch vermutlich nur über den Searchrec, oder?

Wie kann ich denn sonst einfach nur Dateidatum und Größe ermitteln?
Wie machst Du das denn? Oder Ihr?

[himitsu]

Es gibt da eine Funktion und die nennt sich GetFileTime ... schon witzig, niwa?

zu deiner Funktion:

• wozu das leere Path?
• Filename kann man direkt verwenden ... muß man nicht erst umkopieren
• die Repeat-FindNext-Schleife kann weg ... wenn du den richtigen Dateinamen angibst, dann sollte es der erste Eintrag sein, also der von FindFirst

Delphi-Quellcode:

function DateSizeOfFile(FileName: String): String;
var Rec: TSearchRec;
begin
  if FindFirst(FileName, faAnyFile and not faDirectory, Rec) = 0 then
  begin
    try
      Result := DateTimeToStr(FileDateToDateTime(Rec.Time)) + '  ' + IntToStr(Rec.Size) + ' Byte';
    finally
      FindClose(Rec);
    end;
  end
  else Result := '';
end;

da FindClose das Suchrgebnis nicht löscht, kann man es so kürzen

Delphi-Quellcode:

function DateSizeOfFile(FileName: String): String;
var Rec: TSearchRec;
begin
  if FindFirst(FileName, faAnyFile and not faDirectory, Rec) = 0 then
  begin
    FindClose(Rec);
    Result := DateTimeToStr(FileDateToDateTime(Rec.Time)) + '  ' + IntToStr(Rec.Size) + ' Byte';
  end
  else Result := '';
end;

[DeddyH]

Bitte bitte, keine Subtraktion bei Bitmasken (auch wenn es in diesem Fall keine Rolle spielen sollte).

Zitat:

faAnyFile - faDirectory

LieberfaAnyFile and not faDirectory , dann kann ich besser schlafen

[Coder]

erst Mal Danke,

das mit GetFileTime() war mir damals zu kompliziert. (Das Datum und die Zeit entsprechend daraus für meinen benötigten String zu Formatieren)
ist igendwie heute auch nicht anders
daher mein Umweg über den TSearchRec.


Puhh, Ihr seid aber streng (Syntax) ...

[himitsu]

man könnte auch GetFileAttributesEx nehmen

GetFileTime ist eigentlich nicht schwer anzuwenden.
man muß sich nur per CreateFile ein Handle besorgen ,
aber einen Nachteil hat es ... ist kein Zugriff auf die Datei möglich (z.B. schon exklusiv geöffnet oder fehlende Rechte), dann bekommt man kein Handle.

[Luckie]

Zitat von Coder:

ja, ich weiß, das hab ich aus einer Function gekürz, die mir alle Dateien in einem Verzeichnis auflistet. Und da ich jetzt nur noch das Dateidatum +Größe brauchte ...

Aber verstanden hast du sie nicht. Was meinst du hat SearchRect in dieser Zeile für Werte, wenn die Datei gefunden wird:
if FindFirst(Path + FileName, faAnyFile - faDirectory, Rec) = 0 then