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;