Hämta storleken på en fil i Bytes med Delphi

De Filstorlek -funktionen returnerar storleken på en fil, i byte - ett användbart resultat för vissa filhanteringsapplikationer inom ett Delphi-program.

Få filstorlek

FileSize-funktionen returnerar storleken på en fil i byte; funktionen returnerar -1 om filen inte hittades.

// returnerar filstorleken i byte eller -1 om den inte hittas.
fungera FileSize (filnamn: wideString): Int64;
var
sr: TSearchRec;
Börja
om FindFirst (filnamn, faAnyFile, sr) = 0 sedan
resultat: = Int64 (sr.FindData.nFileSizeHigh) shl Int64 (32) + Int64 (sr.FindData.nFileSizeLow)
annan
resultat: = -1;
FindClose (sr);
slutet;

När du har en filstorlek i byte kanske du vill formatera storleken för visning (Kb, Mb, Gb) för att hjälpa dina slutanvändare att förstå data utan att behöva konvertera enheter.