VB获取文件大小的方法

技术  /  管理员 发布于 7年前   603

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

希望本文所述对大家的VB程序设计有所帮助。