文件_取实际大小

易辈子

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


4 p) Z) F& Z$ d- E命令功能介绍:文件_取实际大小

* d! V- \% U% l9 l9 X" ?# q
命令类别:精易模块命令
4 G3 P( w4 [1 P0 ^. M

命令使用说明:在易语言中调用即可。
$ K. P/ t- f1 n; ?+ B
4 C3 Q$ j" z( v0 g- m

" U9 X) y, |: Q) k

命令源码:

  

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

变量名	类 型	静态	数组	备 注
局_整数结构	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">" Y" T- u  ~- L  j% E% j$ u</font><br /> .参数 文件路径, 文本型, , <font class="jammer">0 a& e) \' A/ _/ `2 l0 e</font><br /> .局部变量 局_整数结构, ULARGE_INTEGER, , , <font class="jammer">( l; c2 }1 p0 l, r% p/ e/ v</font><br /> .局部变量 局_文件大小, 长整数型, , , <font class="jammer">; `1 ?9 |* Y" c8 k7 i2 t$ P</font><br /> <br /> <span style="display:none">/ Z3 M/ E! J# {</span><font class="jammer">5 E2 |3 g5 f2 ]* o$ y6 j</font><br /> 局_整数结构.LowPart ＝ GetCompressedFileSizeA (文件路径, 局_整数结构.HighPart)<font class="jammer">; j1 C( x( n  D& P( W/ e- }</font><br /> .如果 (局_整数结构.LowPart ＜ 0)  ' 文件大小在2-4G之间时低位是负值<font class="jammer">% f# g' _' f3 N% |( B</font><br />     局_整数结构.LowPart ＝ 位与 (局_整数结构.LowPart, 2147483647)  ' 将低位和（01111111111111111111111111111111）位与，去掉负号<font class="jammer">- a( U9 S' x# Z( {7 P</font><br />     局_文件大小 ＝ 局_整数结构.HighPart × 4294967296.000000 ＋ 2147483648.000000 ＋ 局_整数结构.LowPart  ' 再加上2G和高位得到文件实际大小<font class="jammer">2 P, D  ?6 I& @" y* G% o6 N</font><br /> .否则<br /> <span style="display:none">: O' G! E1 o0 R</span>    局_文件大小 ＝ 局_整数结构.HighPart × 4294967296.000000 ＋ 局_整数结构.LowPart<font class="jammer">+ z+ w; N  q7 w) _0 W" b* ]+ Z</font><br /> .如果结束<font class="jammer">3 o$ B( V4 A5 L8 N, l! J4 Z  I</font><br /> 返回 (局_文件大小)

( p' \0 Z. g9 G6 c

源码复制到易语言教程:
: ]4 U( R1 v: ]2 p
首先复制上面的命令源码.到剪辑板.然后来到易语言的程序集界面如下图所示


然后拖动鼠标把程序集名-窗口程序集.选中.然后粘贴上面的代码
" E+ o* o2 x  e
即可插入易语言命令代码哦

9 Q9 N( G1 c1 \# b# u3 `$ |DLL源码复制到易语言教程：

5 p2 c9 h" |2 Q  d# ^; l! O$ y! L
3 F. r! d$ k3 D- R
- H& @$ w8 R+ ~5 M6 c9 H

yyz860723

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

A8968666666

看不明白是什么   
. S5 ^+ }& D0 p/ K, j# y: i

fxy2514326

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

一决高下

. e* O2 L7 b! o, Y5 C, [楼主太厉害了！楼主，我爱你！我觉得易语言吧真是个好地方！