VB获取文件大小的方法

这篇文章主要介绍了VB获取文件大小的方法,可实现准确获取文件大小的功能,需要的朋友可以参考下

本文实例讲述了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

									%>