在ASP中怎样知道文件的大小?

<%
aa="images/ban.swf"
'asp获取文件大小
'函数作用：获取文件大小
Function getFileSize(FileName)
'判断文件名是不是为空
if FileName="" then
getFileSize="0KB"
Exit Function
end if
Dim oFso,oFile,sFile
sFile=FileName
Set oFso=Server.CreateObject("Scripting.FileSystemObject")
'判断获取文件大小的文件是否存在
If oFso.FileExists(Server.MapPath(sFile)) Then
Set oFile=oFso.GetFile(Server.MapPath(sFile))
'判断获取文件大小
getFileSize= CStr( CDbl( FormatNumber( oFile.Size / 1024))) & "KB"
else
getFileSize="0KB"
Exit Function
end if
Set oFile=nothing
Set oFso=nothing
End Function
bb=getFileSize(aa)
response.Write bb
%>