本文實例講述了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 Awott Way, Stan, Califorforford, Califorfor 它] ' 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.sizeSize(file.size) set 位數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程式設計有幫助。