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

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

作者:小卒过河

%s 个评论

要回复文章请先登录注册