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
- Delphi formatfloat
- Delphi format float - Meilleures réponses
- Delphi filesize - Meilleures réponses
- Taille d'un fichier - Codes sources - Visual Basic / VB.NET (Fichier / Disque)
- Avoir la taille d'un fichier avec la bonne unité - Codes sources - Visual Basic / VB.NET (Fichier / Disque)
- Récupérer la taille d'un fichier à la façon de l'explorateur windows - Codes sources - Visual Basic / VB.NET (Fichier / Disque)
- ASP / ASP.NET : Connaitre la taille d'un fichier (texte pas exemple) - CodeS SourceS - Guide
- Determiner la taille d'un fichier - Codes sources - C / C++ / C++.NET (Fichiers / Disque)
Commentaires
FileMode:=0;
Dites moi si je me trompe
Sous Delphi c'est CloseFile(f).
Bye.
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.