<%

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。