Obtenir la taille d'un fichier

Obtenir la taille d'un fichier

Obtenir la taille d'un fichier : Plusieurs milliers de conseils pour vous faciliter la vie.

la fonction GetFileSize(const FileName: string): Integer
var
& nbsp sr: TSearchRec
begin
& nbsp Result := 0

& nbsp si FindFirst(nom de fichier, faAnyFile, sr) = 0, alors
& nbsp commencer
& nbsp & nbsp & nbsp Resultat := sr.La taille
& nbsp & nbsp & nbsp FindClose(sr)
& nbsp fin
fin