文件_取实际大小

易辈子

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

/ J; X6 G, k: E% V( j
$ ?5 e* j: t) E) Y7 Q, {# G命令功能介绍:文件_取实际大小
! P+ o# }" W. q5 g* [
9 I$ e* w) t$ X) L5 s
命令类别:精易模块命令

+ J% j+ F7 c3 E$ K( U9 q% g
命令使用说明:在易语言中调用即可。
/ k0 B  q0 P1 E1 r+ p( p1 D  M


: F. {* B/ i( a0 n# K
; N0 n+ N' A5 B. ?% T' ^, s
命令源码:

  

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

变量名	类 型	静态	数组	备 注
局_整数结构	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">4 q0 {4 Y" _0 L( n% b6 e6 v* E3 L</span>.参数 文件路径, 文本型, , <font class="jammer">. v) N/ K% z* r4 s</font><br /> .局部变量 局_整数结构, ULARGE_INTEGER, , , <br /> <span style="display:none">- e+ b% X2 n7 H! R& E</span>.局部变量 局_文件大小, 长整数型, , , <br /> <span style="display:none">8 I; J6 P. }& }; V! }- t5 p</span><font class="jammer">* b* v3 \! O. L- _9 h</font><br /> <font class="jammer">! Z% }0 v8 K5 k! S  x" `$ o</font><br /> 局_整数结构.LowPart ＝ GetCompressedFileSizeA (文件路径, 局_整数结构.HighPart)<br /> <span style="display:none">4 a' {/ v1 y9 L8 _2 ?</span>.如果 (局_整数结构.LowPart ＜ 0)  ' 文件大小在2-4G之间时低位是负值<font class="jammer">6 G: `* p% }: _1 b% x9 v</font><br />     局_整数结构.LowPart ＝ 位与 (局_整数结构.LowPart, 2147483647)  ' 将低位和（01111111111111111111111111111111）位与，去掉负号<font class="jammer">; n% ?8 R" Q( m- C- N! I: H</font><br />     局_文件大小 ＝ 局_整数结构.HighPart × 4294967296.000000 ＋ 2147483648.000000 ＋ 局_整数结构.LowPart  ' 再加上2G和高位得到文件实际大小<br /> <span style="display:none">9 O& A9 z. h" F9 Y9 d2 q</span>.否则<br /> <span style="display:none">+ ]* A5 h0 z: D</span>    局_文件大小 ＝ 局_整数结构.HighPart × 4294967296.000000 ＋ 局_整数结构.LowPart<br /> <span style="display:none">! S* b6 Z6 q2 b7 O( I( g</span>.如果结束<br /> <span style="display:none">1 s8 O; A! E& ~</span>返回 (局_文件大小)

+ S* m* f" b7 o( r3 b0 \( e/ w, l
8 u0 b' u( n4 s' X( C4 s

源码复制到易语言教程:

  a+ x) w9 O6 v6 K2 A; Q! l% g( L: G首先复制上面的命令源码.到剪辑板.然后来到易语言的程序集界面如下图所示
) Q2 d; T. W2 ?/ b4 `, X8 H$ u% a

然后拖动鼠标把程序集名-窗口程序集.选中.然后粘贴上面的代码
1 K3 C9 `8 _" [4 s9 d& Q+ D
即可插入易语言命令代码哦
' C4 m( g1 l; U/ b- e! v
+ l- z7 w- T1 WDLL源码复制到易语言教程：

3 r2 _+ F7 p. u# c8 W
0 M: T' ]/ ^1 _/ u- \: R% o
6 m; |/ P* }. k1 Q9 K0 p

yyz860723

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

A8968666666

看不明白是什么   
: C) F8 z. P* B9 c8 J. h$ f0 P) X

fxy2514326

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

一决高下

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