文件_取实际大小

易辈子

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

6 }" F& W0 t, p* y$ }( O2 D' h2 R
命令功能介绍:文件_取实际大小


* Q7 W) p) L% M1 d命令类别:精易模块命令
" t, u$ x* {' i. `- I% d* G5 g
: y! R% V! [! M0 q& f; @
命令使用说明:在易语言中调用即可。
! L% d/ a; t0 X- Z/ E7 ~
# S; _. y+ |( T- m$ G/ i9 v* M
/ j9 ?) z4 F" m% ?" @  ~

! Z9 ]1 R" e3 s" I; e2 b
命令源码:

  

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

变量名	类 型	静态	数组	备 注
局_整数结构	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">. a# j9 w& }; K7 X8 p0 A8 \</font><br /> .参数 文件路径, 文本型, , <font class="jammer">2 |1 }, b; t4 _7 c% B9 q* Z</font><br /> .局部变量 局_整数结构, ULARGE_INTEGER, , , <font class="jammer">1 d& K' {1 S  }3 G</font><br /> .局部变量 局_文件大小, 长整数型, , , <br /> <span style="display:none">9 e% E/ Q6 ^! u. @</span><font class="jammer">- m) D3 z! R" ~( m</font><br /> <font class="jammer">4 w; P$ {6 p" y# m</font><br /> 局_整数结构.LowPart ＝ GetCompressedFileSizeA (文件路径, 局_整数结构.HighPart)<font class="jammer">1 u- f9 u* U% \/ ^</font><br /> .如果 (局_整数结构.LowPart ＜ 0)  ' 文件大小在2-4G之间时低位是负值<font class="jammer">7 z9 Q5 M: i1 g& `% Y2 w</font><br />     局_整数结构.LowPart ＝ 位与 (局_整数结构.LowPart, 2147483647)  ' 将低位和（01111111111111111111111111111111）位与，去掉负号<br /> <span style="display:none">8 P0 V& @( ~" ~! J- K+ o</span>    局_文件大小 ＝ 局_整数结构.HighPart × 4294967296.000000 ＋ 2147483648.000000 ＋ 局_整数结构.LowPart  ' 再加上2G和高位得到文件实际大小<font class="jammer">" x: m2 @- @& }0 d: j</font><br /> .否则<br /> <span style="display:none">: @6 o- N7 \" c4 A9 q! }</span>    局_文件大小 ＝ 局_整数结构.HighPart × 4294967296.000000 ＋ 局_整数结构.LowPart<br /> <span style="display:none">  O: C" t2 w4 X4 d- ~. t7 D6 U</span>.如果结束<br /> <span style="display:none">1 e* i' ^3 \# P  |</span>返回 (局_文件大小)

3 u. _  z8 ^+ Q0 O0 D, P+ b2 V$ l
2 _- O, h3 G0 t# _0 T

' o  a4 Q, @% g  y源码复制到易语言教程:

' @* ?/ a2 {0 y7 _, F0 x9 n7 f首先复制上面的命令源码.到剪辑板.然后来到易语言的程序集界面如下图所示
7 r# Q4 \7 l; ]% C& W# r

: r# z, k3 T. \" V8 V. L然后拖动鼠标把程序集名-窗口程序集.选中.然后粘贴上面的代码
5 O( w5 |" x# c8 Z
即可插入易语言命令代码哦

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



( b% K4 v, d% L7 `

yyz860723

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

A8968666666

看不明白是什么   

fxy2514326

% R4 ]  _: c- o  x楼主发贴辛苦了，谢谢楼主分享

一决高下

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