ASP获取文件大小

示例：获取当前目录下1.rar的大小

<%
Function getFileSize(FileName)
if(FileName="")then
getFileSize=""
Exit Function
end if
Dim oFso,oFile,sFile
sFile=FileName
Set oFso=Server.CreateObject("Scripting.FileSystemObject")
Set oFile=oFso.GetFile(Server.MapPath(sFile))
getFileSize= CStr( CDbl( FormatNumber( oFile.Size / 1024000))) & "MB"
Set oFile=nothing
Set oFso=nothing
End Function
response.write getFileSize("1.rar")
%>