文件_取实际大小

易辈子

易语言命令名称：文件_取实际大小


命令功能介绍:文件_取实际大小


命令类别:精易模块命令
# w; s& A0 j% k5 ]% q
8 w- `1 @! t7 _( ^! z) A' b
! Y. x# G; z. ^. }4 Q命令使用说明:在易语言中调用即可。


8 G* P9 l# t; |2 S! j
8 j9 n  j/ D' C7 V" m
, s% q% |- i2 A- d" m: r2 Y
命令源码:

  

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

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

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

.子程序 文件_取实际大小, 长整数型, 公开, 获取一个文件在磁盘上实际占据的字节数，如文件右键属性中的大小，显示就是实际压缩过的尺寸<font class="jammer">% F: G$ U1 X* i+ {. r6 q</font><br /> .参数 文件路径, 文本型, , <font class="jammer">- b& v4 @) J) L" O3 N, z</font><br /> .局部变量 局_整数结构, ULARGE_INTEGER, , , <font class="jammer">: M& c3 l1 s& B5 z7 c</font><br /> .局部变量 局_文件大小, 长整数型, , , <br /> <span style="display:none">+ F, ~- ?2 a% ~; Z* a7 z! H5 K- A</span><br /> <span style="display:none">  Q0 \0 {! v) }: X# a( V</span><font class="jammer"># d; t) f+ ?6 J2 I% H</font><br /> 局_整数结构.LowPart ＝ GetCompressedFileSizeA (文件路径, 局_整数结构.HighPart)<font class="jammer">! M3 `5 I1 k% _) `) a8 c9 p( t</font><br /> .如果 (局_整数结构.LowPart ＜ 0)  ' 文件大小在2-4G之间时低位是负值<br /> <span style="display:none"># r9 [( [+ u% z4 c1 Y' ]$ }</span>    局_整数结构.LowPart ＝ 位与 (局_整数结构.LowPart, 2147483647)  ' 将低位和（01111111111111111111111111111111）位与，去掉负号<br /> <span style="display:none"># c* L- j: }% Z: }) P; }8 c5 e7 y</span>    局_文件大小 ＝ 局_整数结构.HighPart × 4294967296.000000 ＋ 2147483648.000000 ＋ 局_整数结构.LowPart  ' 再加上2G和高位得到文件实际大小<br /> <span style="display:none">! c7 O+ S( }( a. w0 Q</span>.否则<br /> <span style="display:none">! b/ N' l, d! Y' S2 y- w: }3 Z</span>    局_文件大小 ＝ 局_整数结构.HighPart × 4294967296.000000 ＋ 局_整数结构.LowPart<br /> <span style="display:none">! j; ?, C3 z6 W! t</span>.如果结束<br /> <span style="display:none">/ @* V: o, q# F* G2 A+ L) L5 }</span>返回 (局_文件大小)

" {3 z; c3 f% j! k

) s" m1 B! L8 i! Z5 U
: J0 b0 ^7 @3 j* v源码复制到易语言教程:
5 h8 {$ [) }/ C. \2 G# D9 y
9 N; i1 |8 P) A  m首先复制上面的命令源码.到剪辑板.然后来到易语言的程序集界面如下图所示
0 C( |; j6 Q( _* m( V
5 @3 m4 W% Q5 }+ ~9 v$ X0 W5 F
9 U6 A* X* s6 P9 d然后拖动鼠标把程序集名-窗口程序集.选中.然后粘贴上面的代码

即可插入易语言命令代码哦

DLL源码复制到易语言教程：

yyz860723

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

A8968666666

看不明白是什么   
3 _. P1 E8 a* e9 T

fxy2514326

楼主发贴辛苦了，谢谢楼主分享

一决高下

楼主太厉害了！楼主，我爱你！我觉得易语言吧真是个好地方！