基于GetFolderSize()写的一个ASP函数，用来计算某个文件文件夹的大小，使用函数时只需传入文件夹路径即可，函数直接返回该文件夹的大小（数值）。

函数参数：FileName为文件夹路径及文件夹名称，如果你输入的路径不存在，则函数将返回文字提示“对不起，该文件夹不存在！”

ASP获取文件夹大小的函数代码

Public Function GetFolderSize(Folderpath)
dim fso,d,size,showsize
set fso=server.createobject("scripting.filesystemobject")
drvpath=server.mappath(Folderpath)
if fso.FolderExists(drvpath) Then
   set d=fso.getfolder(drvpath)
   size=d.size
   GetFolderSize=FormatSize(size)
Else
   GetFolderSize=Folderpath&"对不起，该文件夹不存在！"
End If
End Function