Taille d'un fichier

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 605 fois - Téléchargée 30 fois

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

Ajouter un commentaire

Commentaires

Messages postés
54
Date d'inscription
jeudi 13 novembre 2003
Statut
Membre
Dernière intervention
25 avril 2012

Avant Reset, il suffit d'écrire :
FileMode:=0;
Messages postés
138
Date d'inscription
vendredi 28 février 2003
Statut
Membre
Dernière intervention
29 février 2008

Cette fonction est utile mais elle bug lorsque on veut donner la taille de Application.ExeName.

Dites moi si je me trompe
Messages postés
209
Date d'inscription
lundi 11 février 2002
Statut
Membre
Dernière intervention
13 décembre 2002

Ah oui merci.
Sous Delphi c'est CloseFile(f).

Bye.
Messages postés
3
Date d'inscription
jeudi 11 avril 2002
Statut
Membre
Dernière intervention
13 mai 2003

très utile mais rajoute
close(f);
à la fin

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.