<% '创建一个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 " %>