Dateigröße in Byte auslesen

[MrDelock123]

Hallo zusammen,

wie kann ich die Größe einer Datei auf dem Datenträger auslesen? Bisher kann ich nur die "normale" Größe ermittlen:

Code:

function GetFileSize(const AFileName: string): Int64;
var
  F: TSearchRec;
begin
  Result := -1;
  if FindFirst(AFileName, faAnyFile, F) = 0 then
  begin
    Result :=  F.FindData.nFileSizeLow or (F.FindData.nFileSizeHigh shl 32);
  end;
end;

Allerdings brauche ich die Größe, die unter Windows als "Größe auf Datenträger" angezeigt wird.

Danke im voraus.

[p80286]

Delphi-Quellcode:

if (meinwert mod clustergröße)>0 then
    plattenplatz:=((meinwert div clustergröße)+1)*clustergröße
  else
    plattenplatz:=(meinwert div clustergröße)*clustergröße;

Das sollte es sein (keine Gewähr für Tippfehler)

Gruß
K-H

[nahpets]

Das müsste grob
(GetFileSize(Dateiname) div (Clustergrößer der Festplatte) + 1) * (Clustergrößer der Festplatte) sein.

Oder hier mal schauen: http://www.delphipages.com/forum/sho...d.php?t=191073

[himitsu]

An Alle, die jetzt manuell mit Clustern rechnen ... vergesst es!
* "kleine" Dateien liegen im NTFS als Atribut direkt in der MFT und nicht in einem eigenem Cluster
* SparseFiles? Da wo Cluster weggelassen und nicht im dateiSystem liegen.
* NTFS-komprimierte Daeien?
* usw.

http://stackoverflow.com/questions/3...f-file-on-disk

GetCompressedFileSize und den Rest ignorieren.


FindFirst?
Warum gibst du den Speicher/Suchergebnis nicht wieder frei?

Zitat:

Result := F.FindData.nFileSizeLow or (F.FindData.nFileSizeHigh shl 32);

Über 4 GB stimmt das nicht, denn wo werden wohl die zuvielen Bits hingeschoben, in einem 32-Bit-Integer?
Ins NICHTS!
Result := F.FindData.nFileSizeLow or (Int64(F.FindData.nFileSizeHigh) shl 32);