VB获取文件大小的方法
来源:本站原创|时间:2022-11-25|栏目: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程序设计有所帮助。
您可能感兴趣的文章
- 01-10下载文件到本地运行的vbs
- 01-10VBS中的正则表达式的用法大全 <font color=red>原创&
- 01-10VBS教程:属性-Type 属性
- 01-10VBS教程:属性-Size 属性
- 01-10利用vbscript脚本修改文件内容,此适用于自动化的操作中
- 01-10远程或本地获取系统信息的脚本RGIS.vbs
- 01-10脚本编程3 关于文件的读写
- 01-10利用wscript执行文件[包括可执行exe文件]vbs脚本
- 01-10收集的一些经典的vbs脚本大全
- 01-10ntiIframe.vbs用于批量清除被添加到文件中的恶意代码