请选择 进入手机版 | 继续访问电脑版

玩酷之家

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 163|回复: 0

FileLen大于2GB的文件

[复制链接]

93

主题

98

帖子

370

积分

中级会员

Rank: 3Rank: 3

积分
370
发表于 2019-1-16 21:09:42 | 显示全部楼层 |阅读模式
获取大于2GB的文件大小

  1. ' place in a module
  2. Public Function ULongToCurrency(ByVal Value As Long) As Currency
  3.     If Value < 0 Then
  4.         ULongToCurrency = CCur(Value And &H7FFFFFFF) + 2147483648#
  5.     Else
  6.         ULongToCurrency = CCur(Value)
  7.     End If
  8. End Function
  9. Public Function CurrencyToULong(ByVal Value As Currency) As Long
  10.     If Value >= 2147483648# Then
  11.         CurrencyToULong = &H80000000 Or CLng(Value - 2147483648#)
  12.     Else
  13.         CurrencyToULong = CLng(Value)
  14.     End If
  15. End Function
复制代码



MsgBox ULongToCurrency(FileLen("c:\20181229_191027.iso")) / 1024 / 1024 / 1024
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Archiver|手机版|小黑屋|玩酷之家 ( 鄂ICP备14012049号-1 )|

GMT+8, 2019-2-18 12:04 , Processed in 0.164099 second(s), 18 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表