求计算某个FilePath路径下的文件大小代码

[书生]

不需要考虑文件夹中的递归，只计算该FilePath下的文件大小即可，谢谢。

[constantine]

__int64 GetDirectorySize(AnsiString Path)
{
TSearchRec sr;
AnsiString iPath=Path;
if(iPath.SubString(Path.Length(),1)!="\\")
iPath+="\\";
__int64 Size=0;
int iAttributes=faDirectory;
if(FindFirst(iPath+"*.*",iAttributes,sr)==0)
{
if((sr.Name!=".")&&(sr.Name!="..")&&(sr.Attr!=iAttributes))
Size+=sr.Size;
while(FindNext(sr)==0)
{
if((sr.Name!=".")&&(sr.Name!="..")&&(sr.Attr!=iAttributes))
Size+=sr.Size;
}
}
return Size;
}

调试:
void __fastcall TForm1::btn1Click(TObject *Sender)
{
ShowMessage(GetDirectorySize("D:\\"));
}
//返回字节数

楼主怎么也是2星了,怎么还问这样的问题? 好像还是很多人口中的高手
鲨鱼就是老想加你的群,呵呵,估计"书生"就你一位吧

[书生]

呵呵，先谢谢大侠。OK了。
我不是啥高手，以前时间呆的多混的。鲨鱼一直是在我群里的啊。
昨天晚上请教过群里的高手的，用FindFirst() 和 FindFirstFile都4过，一直没写明白。再谢了啊。