Taille d'un fichier

Commenter

Contenu du snippet


Source / Exemple : 


function ExtractFileSize(Format, FileName: String): String;
var f: File of Byte;
begin
  AssignFile(f, FileName); Reset(f);
  if (FileSize(f) / 1024) < 1024
    then Result:=FormatFloat(Format, FileSize(f) / 1024)+' Ko'
    else Result:=FormatFloat(Format, FileSize(f) / 1048576)+' Mo';
  CloseFile(f);
end;

Conclusion :


Appeller la fonction GetSize() dans votre source.
Format correspond au format de la valeur retourné: '0', '0.00', '#,##0.00' ...
(Voir fonction FormatFloat dans l'aide de Delphi)
FileName correspond au nom complet du fichier.

La chaine retouné correspond a la taille du fichier (arrondie selon Format) et l'unité (Ko ou Mo) du fichier.

Il existe FileSizeByName, mais n'est valable ke sur Delphi Pro.
Why? I don't know...

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_Gysmo)