VB获取文件大小的方法

<%  ' Copyright (c) 2009, reusablecode.blogspot.com; some rights reserved.  '  ' This work is licensed under the Creative Commons Attribution License. To view  ' send a letter to Creative Commons, 559 Nathan Abbott Way, Stanford, California  ' 94305, USA.  ' Retrieve the file size of a given file.  function getFileSize(someFile)    dim fs    dim file    set fs = Server.CreateObject("Scripting.FileSystemObject")    set file = fs.GetFile(Server.MapPath(someFile))    getFileSize = FormatFileSize(file.size)    set file = nothing    set fs = nothing  end function  ' Format a file size in the most practical units.  ' Input: size in bytes  function FormatFileSize(size)    dim units    dim factor    units = Array("B", "kB", "MB", "GB", "TB", "PB", "EB", "ZB", "YB")    factor = log(size) / 7    FormatFileSize = Round(size / (1024 ^ factor), 2) & units(factor)  end function%>