%

Set MyFileSize = Server.CreateObject ("Scripting.FileSystemObject")

MyPath = Server.MapPath("/somedirectory")

Set MyFolder = MyFileSize.GetFolder(MyPath)

%>

p>% =MyPath %> is % =MyFolder.Size %> bytes/p>

    我们可以看到显示的样式如：Shenzhaoyang\Chunfeng\somedirectory is 66093625 bytes。