%

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。