RESPONDER UNA PREGUNTA

Si para responder la pregunta, crees necesario enviar un archivo adjunto, puedes hacerlo a traves del correo [email protected]

Pregunta:	13619 - TAMAñO DE UNA CARPETA
Autor:	mikel torres
Hola: Me gustaria saber como puedo sacar el tamaño en bytes de una carpeta incluyedo archivos y subcarpetas. He probado con esta función pero sólo soy capaz de sacar el tamaño de un fichero y no una carpeta: function GetFileSize(const FileName: string): LongInt; var SearchRec: TSearchRec; begin if FindFirst(ExpandfileName(filename),fadirectory, SearchRec) = 0 then Result := SearchRec.Size else Result := -1; end; Gracias y un saludo.