VB获取文件大小的方法

 更新时间:2015年06月25日 10:15:12   作者:小卒过河  
这篇文章主要介绍了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程序设计有所帮助。

相关文章

  • VB简单实现防止文件被改写

    VB简单实现防止文件被改写

    这篇文章主要介绍了VB简单实现防止文件被改写的方法,十分的简单实用,有需要的小伙伴可以参考下。
    2015-06-06
  • VB使用shell函数打开外部exe程序的实现方法

    VB使用shell函数打开外部exe程序的实现方法

    这篇文章主要介绍了VB使用shell函数打开外部exe程序的实现方法,是非常实用的一个功能,需要的朋友可以参考下
    2014-07-07
  • vb简易计算器源码

    vb简易计算器源码

    本人一觉醒来闲得无聊,正在学习VB,便用VB写个简易的计算器吧!巩固基础
    2012-09-09
  • VB实现的《QQ美女找茬游戏》实例

    VB实现的《QQ美女找茬游戏》实例

    这篇文章主要介绍了VB实现的《QQ美女找茬游戏》,以一个完整实例形式分析了VB实现《QQ美女找茬游戏》的相关技巧,需要的朋友可以参考下
    2015-06-06
  • VB关机恶搞小程序

    VB关机恶搞小程序

    本文给大家汇总了一些使用VB实现的关机恶搞小程序,大家娱乐一下就行了,千万别做坏事哦
    2015-09-09
  • VBA中连接SQLSERVER数据库例子

    VBA中连接SQLSERVER数据库例子

    这篇文章主要介绍了VBA中连接SQLSERVER数据库例子,VBA是指Visual Basic for Applications,是Visual Basic的一种宏语言,需要的朋友可以参考下
    2014-07-07
  • VBA中操作Excel常用方法总结

    VBA中操作Excel常用方法总结

    这篇文章主要介绍了VBA中操作Excel常用方法总结,包含关闭工作簿、打开工作簿、切换工作表等,需要的朋友可以参考下
    2014-07-07
  • 分享如何在VB中调用VC编写的DLL

    分享如何在VB中调用VC编写的DLL

    一般来说,VB和VC共同编程有3种方式:一种是VC生成DLL,在VB中调用DLL;一种是VC生成ActiveX控件(.ocx),在VB中还有一种是在VC中生成ActiveX Automation服务器,在VB中调用
    2013-04-04
  • VB6实现连接Access数据库的ADODB代码实现方法

    VB6实现连接Access数据库的ADODB代码实现方法

    这篇文章主要介绍了VB6实现连接Access数据库的ADODB代码实现方法,对于初学者掌握VB链接access数据库有着很好的借鉴价值,需要的朋友可以参考下
    2014-07-07
  • VB实现的16位和32位md5加密代码分享

    VB实现的16位和32位md5加密代码分享

    这篇文章主要介绍了VB实现的16位和32位md5加密代码分享,需要的朋友可以参考下
    2014-07-07

最新评论