基于GetFolderSize()写的一个ASP函数，用来计算某个文件文件夹的大小，使用函数时只需传入文件夹路径即可，函数直接返回该文件夹的大小（数值）。
函数参数：FileName为文件夹路径及文件夹名称，如果你输入的路径不存在，则函数将返回文字提示“对不起，该文件夹不存在！”
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
在线QQ：
