文件_取实际大小

易辈子

易语言命令名称：文件_取实际大小
) O+ G1 n9 Y4 Y% {2 A9 N

命令功能介绍:文件_取实际大小
5 ~, O; R+ X" u! j; {

命令类别:精易模块命令

5 R  g( \, k/ Y; l% F- m( M0 Z" I$ E
命令使用说明:在易语言中调用即可。



9 u3 s" s$ |' i% E

% Z- y9 {9 \6 p8 q9 n% d命令源码:

  

子程序名	返回值类型	公开	备 注
文件_取实际大小	长整数型	√	获取一个文件在磁盘上实际占据的字节数，如文件右键属性中的大小，显示就是实际压缩过的尺寸
参数名	类 型	参考	可空	数组	备 注
文件路径	文本型

变量名	类 型	静态	数组	备 注
局_整数结构	ULARGE_INTEGER
局_文件大小	长整数型

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

.子程序 文件_取实际大小, 长整数型, 公开, 获取一个文件在磁盘上实际占据的字节数，如文件右键属性中的大小，显示就是实际压缩过的尺寸<br /> <span style="display:none">0 H' M7 g; x9 U' o5 N</span>.参数 文件路径, 文本型, , <font class="jammer">, K2 V3 O/ h8 u3 b) r* x* V</font><br /> .局部变量 局_整数结构, ULARGE_INTEGER, , , <br /> <span style="display:none">; G8 A( x  n5 e* s) q! _8 J</span>.局部变量 局_文件大小, 长整数型, , , <br /> <span style="display:none">& s$ Y* z  M- l% }/ ]</span><br /> <span style="display:none">' e: _# |$ t0 L: D9 s: f/ P</span><font class="jammer">* \# T/ l; J9 `</font><br /> 局_整数结构.LowPart ＝ GetCompressedFileSizeA (文件路径, 局_整数结构.HighPart)<br /> <span style="display:none">3 `, Y. v$ ?$ ?</span>.如果 (局_整数结构.LowPart ＜ 0)  ' 文件大小在2-4G之间时低位是负值<font class="jammer">1 V' [* [8 x/ G7 ?. Z7 _5 j! W# }</font><br />     局_整数结构.LowPart ＝ 位与 (局_整数结构.LowPart, 2147483647)  ' 将低位和（01111111111111111111111111111111）位与，去掉负号<font class="jammer">. u% W6 G0 \/ y6 n; k</font><br />     局_文件大小 ＝ 局_整数结构.HighPart × 4294967296.000000 ＋ 2147483648.000000 ＋ 局_整数结构.LowPart  ' 再加上2G和高位得到文件实际大小<br /> <span style="display:none">  e: @' }* j: e0 x4 d</span>.否则<br /> <span style="display:none">8 c; |& ?$ Z7 r! K: a8 D</span>    局_文件大小 ＝ 局_整数结构.HighPart × 4294967296.000000 ＋ 局_整数结构.LowPart<font class="jammer">( ^0 h: F3 B! X5 Y. ^</font><br /> .如果结束<font class="jammer">8 f4 {! t: I; @# r2 N* \, F</font><br /> 返回 (局_文件大小)

8 M, F& K* ?" U' `; m


/ y2 M8 _5 K, X, p" I源码复制到易语言教程:

9 b9 h' o8 e) d/ `2 e首先复制上面的命令源码.到剪辑板.然后来到易语言的程序集界面如下图所示

& c5 `/ c7 e% l, K; U
6 `: J4 L  V* _8 [2 {; \" O然后拖动鼠标把程序集名-窗口程序集.选中.然后粘贴上面的代码
! O$ B$ q! v) c: i7 l
- I9 i) r# w* e  T' J3 {即可插入易语言命令代码哦
! i$ P! r2 r  ?( a( H% G2 i
+ e% W3 C3 l& oDLL源码复制到易语言教程：

1 z: m& U& D4 p0 _8 Z8 b: g

yyz860723

楼主发贴辛苦了，谢谢楼主分享！我觉得易语言吧是注册对了！

A8968666666

看不明白是什么   
. L. }5 x# N# F5 e6 z( ]+ j

fxy2514326

. t9 R7 {- ^" h' B* d. H' |9 i楼主发贴辛苦了，谢谢楼主分享

一决高下

+ h. E1 D2 O+ [* f* d楼主太厉害了！楼主，我爱你！我觉得易语言吧真是个好地方！