如何得到文件大小?(100分)

有个应用需要在短时间内访问大量的文件（3000个左右）<br>用filesize( )实现起来很复杂，磁盘哗哗响,速度很慢<br>有什么简单点的函数呢?

TSearchRect好像有一个Size的属性,用搜索的方法不知道可以不.

参考一下运行库函数的findfisrt帮助，你就知道了。

Tsearchrec确实有一个size属性<br>大小以字节计算<br>Var<br>&nbsp;f:Tsearchrec;<br>&nbsp;i:integer;<br>&nbsp;fname:AnsiString;<br>Begin<br>&nbsp; f:=Tsearchrec.create;<br>&nbsp; if findfirst('d:/data/*.*',FaAnyfile,f)=0 then<br>&nbsp; While findnext(f)=0 <br>&nbsp; begin<br>&nbsp; &nbsp; fname:=f.Name;<br>&nbsp; &nbsp; i:=f.Size; &nbsp;//i即为文件大小<br>&nbsp; &nbsp; .........................<br>&nbsp; end;<br>end;