<%
'创建一个FileSystemObject对象的事例
Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
'创建一个Folder对象
Set MyFolder=MyFileObject.GetFolder("D:\test")
'显示文件夹大小
Dim fileM
fileM = MyFolder.Size/1048576
Response.Write "文件夹大小为:"&MyFolder.Size&" 字节 即: "&fileM&" M "
%>