ASP Ukuran properti

FileObject.Size

FolderObject.Size

<%
dim fs,f
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.GetFile("c:\test.asp")
Response.Write("The size of test.asp is: ")
Response.Write(f.Size & " bytes.")
set f=nothing
set fs=nothing
%>

输出：

The size of test.asp is: 10556 bytes.

<%
dim fs,fo
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fo=fs.GetFolder("c:\test")
Response.Write("The size of the folder test is: ")
Response.Write(fo.Size & " bytes.")
set fo=nothing
set fs=nothing
%>

输出：

The size of the folder test is: 123456 bytes.