99久久精品无码一区二区毛片,欧美影视一区二区三区,传媒天美果冻aaaaa

本文實例講述了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

									%>