程序代码：
<%
Set MyFileSize = Server.CreateObject ("Scripting.FileSystemObject")
MyPath = Server.MapPath("/Web")
Set MyFolder = MyFileSize.GetFolder(MyPath)
%>
<p><% =MyPath %> is <% =MyFolder.Size %> bytes</p>

显示结果为：
:/Inetpub/wwwroot/Web is 47331 bytes T9eHTML5中文学习网 - HTML5先行者学习网
T9eHTML5中文学习网 - HTML5先行者学习网