asp 获取本地文件大小 代码

<%

dim fso,filepath,file

set fso=server.createobject("scripting.filesystemobject")

filepath=server.mappath("index.asp")'选择目标文件为根目录下的index.asp

set f=fso.getfile(filepath) '获取尺寸

If f.size<1024 Then

Response.Write f.size & "B"

else If f.size<1048576 Then'比较大小

fs=left(f.size/1024,4)'计算大小

Response.Write Split(fs & "KB")(0) '显示大小

else If f.size<1073741824 Then

fs=left(f.size/1024/1024,4)

Response.Write Split(fs & "MB")(0)

else If f.size<1099511627776 Then

fs=left(f.size/1024/1024/1024,4)

Response.Write Split(fs & "GB")(0)

else If f.size<1125899906842624 Then

fs=left(f.size/1024/1024/1024/1024,4)

Response.Write Split(fs & "TB")(0)

End If

End If

End If

End If

End If

%>