VB获取文件大小的方法
2015-06-25 10:15
1711 查看
本文实例讲述了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程序设计有所帮助。
您可能感兴趣的文章:
相关文章推荐
- 命令行小技巧:读取文件的不同方式
- VB简单实现防止文件被改写
- IE:临时文件保存法
- 文件的读出 编辑 管理
- 文件遍历排序函数
- 在线用表单建立文件夹
- 文件、目录,文本文件等多种操作类
- 处理驱动器和文件夹
- VB实现禁用任务管理器的方法
- 用vbs删除某些类型文件和磁盘空间报告的脚本
- VBS教程:运算符-运算符(+)
- VB实现的16位和32位md5加密代码分享
- VB6中的LSet语句和RSet语句详解
- Ruby实现批量对文件增加前缀代码分享
- C#获取文件夹及文件的大小与占用空间的方法
- delphi制作wav文件的方法
- VB实现的递归复制文件和搜索文件的代码分享
- PowerShell实现查询打开某个文件的默认应用程序
- bat 文件 学习使用指南
- IIS配置文件隐患