Bonjour,

Voila, je souhaite afficher (dans une ligne de memo ou dans un showmessage par exemple) la taille d'un dossier après avoir récupéré cette information grâce à la fonction suivante :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
//FONCTION GETFILESIZE----------------------------------------------------------
function GetFileSize(const APath: string): int64;
//------------------------------------------------------------------------------
var
  Sr : TSearchRec;
begin
  if FindFirst(APath,faAnyFile,Sr)=0 then
  try
    Result := Int64(Sr.FindData.nFileSizeHigh) shl 32 + Sr.FindData.nFileSizeLow;
  finally
    FindClose(Sr);
  end
  else
    Result := 0;
end;
Je peut compiler le tout, je peut faire un GetFileSize d'un dossier, mais comment afficher cette valeur ensuite ?

D'avance merci !

P.S. -> j'ai trouvé cette fonction dans la F.A.Q Delphi du site, je ne sais pas si elle est parfaitement adaptée à mon souhait : afficher la taille d'un Dossier (répertoire).