日期:2014-05-17 浏览次数:21090 次
Function totalsize(size) If size<1024 Then totalsize=size&" Bytes" Elseif size<1048576 Then totalsize=Round((size/1024),2)&" KB" Else totalsize=Round((size/1024/1024),2)&" MB" End If End Function set fs = CreateObject("Scripting.FileSystemObject") Set folder = fs.GetFolder(path) Response.Write(totalsize(folder.Size) & " "& vbCrLf)