ASP获取文件夹大小

1. <%
   
2. Dim MyFileSize, MyFolder
   
3. Set MyFileSize = Server.CreateObject ("Scripting.FileSystemObject")
   
4. MyPath="D:\Downloads"
   
5. Set MyFolder = MyFileSize.GetFolder(MyPath)
   
6. %>
   
7. 
   
8. <p><% =MyPath %> 大小 <% =MyFolder.Size/1048576 %> MB</p>
   
9. 
   
10. <%
    
11. Set MyFileSize = Nothing
    
12. Set MyFolder=Nothing
    
13. %>

复制代码