文件_取实际大小

易辈子

易语言命令名称：文件_取实际大小
$ \0 t1 G* d* X, R5 w

" {; _/ w( j0 z3 C# c- p命令功能介绍:文件_取实际大小
, @. s1 i& u# a3 j" @/ A7 ?

" t& _! ?$ c4 x! c命令类别:精易模块命令

6 @, x* W$ b7 l0 r, p
$ E* D* `3 D' G命令使用说明:在易语言中调用即可。


8 C. E4 e, q0 [# c9 k& f
* C7 F6 p5 v- j' p. h, r. U) |

命令源码:

  

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

变量名	类 型	静态	数组	备 注
局_整数结构	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">! k( i/ z1 f6 M# g' ^* i- m# H</span>.参数 文件路径, 文本型, , <font class="jammer">2 c- G( A8 Q8 e4 z+ z</font><br /> .局部变量 局_整数结构, ULARGE_INTEGER, , , <font class="jammer">3 |- s2 C, o5 }1 a</font><br /> .局部变量 局_文件大小, 长整数型, , , <font class="jammer">6 a5 N; C5 ]) e3 b5 [1 @3 [/ U</font><br /> <br /> <span style="display:none">- i- i6 T6 m, J* q2 g2 x! z1 {8 s</span><br /> <span style="display:none">5 e( s+ u' h8 C</span>局_整数结构.LowPart ＝ GetCompressedFileSizeA (文件路径, 局_整数结构.HighPart)<br /> <span style="display:none">' ?" E7 \6 y( @0 K5 b</span>.如果 (局_整数结构.LowPart ＜ 0)  ' 文件大小在2-4G之间时低位是负值<br /> <span style="display:none">2 h  E9 w) A8 T* {</span>    局_整数结构.LowPart ＝ 位与 (局_整数结构.LowPart, 2147483647)  ' 将低位和（01111111111111111111111111111111）位与，去掉负号<br /> <span style="display:none">8 _( {8 i& G2 I/ E</span>    局_文件大小 ＝ 局_整数结构.HighPart × 4294967296.000000 ＋ 2147483648.000000 ＋ 局_整数结构.LowPart  ' 再加上2G和高位得到文件实际大小<font class="jammer">) Y0 P* T/ \1 k+ H! {8 b1 J</font><br /> .否则<br /> <span style="display:none">' T- E/ Y# c7 D8 H9 I8 y</span>    局_文件大小 ＝ 局_整数结构.HighPart × 4294967296.000000 ＋ 局_整数结构.LowPart<br /> <span style="display:none">( R- B3 K3 p: ~, \; O) Z: e7 r</span>.如果结束<br /> <span style="display:none">" {, C/ }4 H- r8 n. X; x' t5 f</span>返回 (局_文件大小)

$ @1 I& D& F& j# [$ i


源码复制到易语言教程:

* P7 s+ _: H% n. H8 B首先复制上面的命令源码.到剪辑板.然后来到易语言的程序集界面如下图所示
& y4 }2 ]+ a2 u- G* q: ?

% g8 P- f5 ^! G. _, S  O* b然后拖动鼠标把程序集名-窗口程序集.选中.然后粘贴上面的代码

! E- V9 E! h/ Y1 {# j即可插入易语言命令代码哦
* p( a5 T3 s( q" c4 m
DLL源码复制到易语言教程：



/ z4 K  Z" \: `% o2 y" D' T

yyz860723

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

A8968666666

看不明白是什么   
6 s4 U0 a. @( |, _( k7 s$ G

fxy2514326

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

一决高下

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