|
- <%
- Dim MyFileSize, MyFolder
- Set MyFileSize = Server.CreateObject ("Scripting.FileSystemObject")
- MyPath="D:\Downloads"
- Set MyFolder = MyFileSize.GetFolder(MyPath)
- %>
- <p><% =MyPath %> 大小 <% =MyFolder.Size/1048576 %> MB</p>
- <%
- Set MyFileSize = Nothing
- Set MyFolder=Nothing
- %>
复制代码
|
|