文件_取实际大小

易辈子

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

6 L2 h$ J5 m! d. V
命令功能介绍:文件_取实际大小

6 I7 V* d% y5 U
命令类别:精易模块命令

( x2 M% L% P* ~* E
& p5 y( A  T! S+ Z0 \命令使用说明:在易语言中调用即可。
" Q+ P* n0 {" V/ H3 v9 A
! j4 Q$ ?) {) X$ w1 H
  Q9 X( }2 B, t% V, Y  G

2 t, F/ ]% M/ a  |9 E
5 x7 j% M5 j, U7 @命令源码:

  

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

变量名	类 型	静态	数组	备 注
局_整数结构	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">" B: Y/ C4 @3 _9 M% y. Y</font><br /> .参数 文件路径, 文本型, , <br /> <span style="display:none">2 r" Y& v! v& l1 ~" T</span>.局部变量 局_整数结构, ULARGE_INTEGER, , , <font class="jammer"># N: W; v0 h* e2 n7 m* E</font><br /> .局部变量 局_文件大小, 长整数型, , , <br /> <span style="display:none">% Q5 B( Z- @: Y! p1 D; x</span><font class="jammer"># o2 a* x8 P$ A# C</font><br /> <font class="jammer">" L+ r% ^+ P6 C</font><br /> 局_整数结构.LowPart ＝ GetCompressedFileSizeA (文件路径, 局_整数结构.HighPart)<br /> <span style="display:none">2 ^$ |! a8 i; v4 S; D2 v% d' m</span>.如果 (局_整数结构.LowPart ＜ 0)  ' 文件大小在2-4G之间时低位是负值<font class="jammer">, x- ]$ ~0 q( W: S8 F' v4 }7 Q. S</font><br />     局_整数结构.LowPart ＝ 位与 (局_整数结构.LowPart, 2147483647)  ' 将低位和（01111111111111111111111111111111）位与，去掉负号<font class="jammer">; _; v* H9 U7 M5 Y' ~: K</font><br />     局_文件大小 ＝ 局_整数结构.HighPart × 4294967296.000000 ＋ 2147483648.000000 ＋ 局_整数结构.LowPart  ' 再加上2G和高位得到文件实际大小<br /> <span style="display:none">0 Q6 F: f- W' o0 a9 L  S; G4 U</span>.否则<font class="jammer">* I) c+ Y, l; L) F. ~</font><br />     局_文件大小 ＝ 局_整数结构.HighPart × 4294967296.000000 ＋ 局_整数结构.LowPart<br /> <span style="display:none">$ Y+ v: L7 I0 p6 q7 t) X</span>.如果结束<br /> <span style="display:none">: \- c2 z$ I8 y6 S</span>返回 (局_文件大小)

- {5 h( I8 e! A" l: S1 ]
源码复制到易语言教程:

. J6 M* Z- [, _% g' g& u首先复制上面的命令源码.到剪辑板.然后来到易语言的程序集界面如下图所示
, f, Z2 l. a1 N1 X5 I

/ T" L" |7 ]7 m; X然后拖动鼠标把程序集名-窗口程序集.选中.然后粘贴上面的代码

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

* `- [' C6 _* B& ^  FDLL源码复制到易语言教程：
: `2 }7 i3 l1 h3 |) t' s+ d
/ j6 k. H7 O9 V% f+ X5 {: G5 I  N! m3 q
4 \! Y$ r0 w8 W7 z" W7 V
" P% ~8 b, l  n

yyz860723

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

A8968666666

看不明白是什么   

fxy2514326

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

一决高下

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