Obtener el tamaño de un archivo

Obtener el tamaño de un archivo

Obtener el tamaño de un archivo : Multi-millones de consejos para hacer su vida mas facil.

la funcion de GetFileSize(const FileName: string): Integer
var
& nbsp sr: TSearchRec
begin
& nbsp Resultado := 0

& nbsp si FindFirst(nombre de archivo, faAnyFile, sr) = 0, entonces
& nbsp empezar
& nbsp & nbsp & nbsp Resultado := sr.Tamaño
& nbsp & nbsp & nbsp FindClose(sr)
& nbsp final
fin