Obtenir rapidement la taille d'un fichier

function GetFilesize(sFileName: string; iPrecision: integer): string;
var
i: longint;
f: file of byte;
isize: extended;
begin
//desactiver les erreurs les erreurs d'E/S
{$I-}
assignfile(f, sFileName);
reset(f);
i := filesize(f);
CloseFile(F);
{$I+}

isize := i / 1024;
result := floattostrf(iSize, fffixed, 7, iPrecision) + ' ko';
if iSize > 1024 then begin
iSize := iSize / 1024;
result := floattostrf(iSize, fffixed, 7, iPrecision) + ' mo';
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
//GetFilesize (Fichier, décimal après la virgule)
showmessage(GetFilesize('c: est.bmp', 2));
end;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour08/11/2004
VisualisationVu 1308 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Fichier
Auteur de l'article
SwissDelphiCenter SwissDelphiCenter
connecté le 02/11/2011
329 articles dans la section
Contacter l'auteur