| 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. | |
| Respuesta: | Javier Alvarez Flores |
| Baja el archivo di200106bt_f.zip de la siguiente dirección: http://www.DelphiZine.com/download/ tiene dos componentes hechos por Bill Todd para el manejo de carpetas y archivos desde delphi, no están complicados y usan funciones API, seguro te ayudarán en algo. :-) | |