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

玩酷之家

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

FileLen大于2GB的文件

[复制链接]

95

主题

100

帖子

401

积分

中级会员

Rank: 3Rank: 3

积分
401
发表于 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
最多选择要压缩的20张 PNG图像
回复

使用道具 举报

20

主题

24

帖子

328

积分

中级会员

Rank: 3Rank: 3

积分
328
发表于 2019-4-9 14:44:42 | 显示全部楼层
这个代码超过获取超过4GB以上文件就不行了!推荐使用以下方法!

获取超过4GB的大文件大小
http://www.wk78.com/thread-200-1-1.html
我用自己的独白,静候彼岸花的盛开...
回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2019-4-24 20:01 , Processed in 0.202204 second(s), 19 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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