Taille d'un fichier
Soyez le premier à donner votre avis sur cette source.
Snippet vu 8 042 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
- Transfert de fichier - winsock avec controle de vitesse, quelque soit la taille du fichier - Codes sources - Visual Basic / VB.NET (Réseau & Internet)
- Calcul de la taille des fichiers dans un dossier - Codes sources - Visual Basic / VB.NET (Fichier / Disque)
- PHP : Convertion de tailles de fichiers (octects>kilos>megas>gigas>teras) - CodeS Source - Guide
- Limiter la taille du fichier à uploader - Codes sources - ColdFusion (Fichiers)
- Temps de telechargement en fonction de la taille du fichier - Codes sources - Javascript (Navigation)
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.