基于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