亚洲乱码中文字幕综合,中国熟女仑乱hd,亚洲精品乱拍国产一区二区三区,一本大道卡一卡二卡三乱码全集资源,又粗又黄又硬又爽的免费视频

VB獲取文件大小的方法

 更新時間：2015年06月25日 10:15:12   作者：小卒過河  
這篇文章主要介紹了VB獲取文件大小的方法,可實現(xiàn)準(zhǔn)確獲取文件大小的功能,需要的朋友可以參考下

本文實例講述了VB獲取文件大小的方法。分享給大家供大家參考。具體實現(xiàn)方法如下：

<%
  ' 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
%>

希望本文所述對大家的VB程序設(shè)計有所幫助。

相關(guān)文章

最新評論