Bonjour à toutes et à tous,

Avec cette fonction j'obtiens le résultat en octet, est t'il possible de l'obtenir en Mo avec 2 décimales (3,63Mo).

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
function TailFichier(fichier: string): longint;
{=================================================================}
{ fonction renvoyant la taille du fichier 'fichier' en Octets     }
{=================================================================}
var SearchRec:TSearchRec;
    Resultat:integer;
begin
  Result:=0 ;
  Resultat:=FindFirst(fichier, FaAnyFile, SearchRec);
  if Resultat=0 then Result:=SearchRec.Size ;
  FindClose(SearchRec);
end;
J'ai testé toutes manipulations sans résultat indiqué comme dans les propriétés du fichier.

@+,

cincap