精易模块BUG 文件_取实际大小()

camingo

模块版本：(7.6.5)
所用系统：Win10 64位
命令名称：文件_取实际大小()
BUG描述：给命令在取大于2G且小于4G的文件大小时错误，显示的是负值。
我的联系QQ：331870744
改进建议：
.版本 2

.子程序 文件_取实际大小, 长整数型, 公开, 获取一个文件在磁盘上实际占据的字节数，如文件右键属性中的大小，显示就是实际压缩过的尺寸
.参数 文件路径, 文本型
.局部变量 局_整数结构, ULARGE_INTEGER
.局部变量 局_文件大小, 长整数型

局_整数结构.LowPart ＝ GetCompressedFileSize (文件路径, 局_整数结构.HighPart)
.如果 (局_整数结构.LowPart ＜ 0)  ' 文件大小在2-4G之间时低位是负值
    局_整数结构.LowPart ＝ 位与 (局_整数结构.LowPart, 2147483647)  ' 将低位和（01111111111111111111111111111111）位与，去掉负号
    局_文件大小 ＝ 局_整数结构.HighPart × 4294967296 ＋ 2147483648 ＋ 局_整数结构.LowPart  ' 再加上2G和高位得到文件实际大小
.否则
    局_文件大小 ＝ 局_整数结构.HighPart × 4294967296 ＋ 局_整数结构.LowPart
.如果结束
返回 (局_文件大小)

项目部004

下期版本发布前修复这个问题，感谢反馈与提供！