文件_取实际大小

易辈子

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


命令功能介绍:文件_取实际大小
; Q$ `+ \4 {+ S& e3 |
/ b& D1 z: z' z$ [0 y! i3 {
  E* y5 p+ T6 ?/ }命令类别:精易模块命令
; ~% ]' l8 H; H
* Y% G0 o5 ^# F& r- i
命令使用说明:在易语言中调用即可。
' E4 k- V1 t: L. Z6 T" N1 C) t
; H9 F2 c: B- Y" u+ ]
  @3 q2 T. x" P' w( L. i; t
4 k, a' t& c. S4 e9 k/ O0 h
. n/ E6 X& ^1 o$ P8 w- a
命令源码:

  

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

变量名	类 型	静态	数组	备 注
局_整数结构	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">0 D: S" y' `: E2 u2 G</font><br /> .参数 文件路径, 文本型, , <br /> <span style="display:none">4 e/ Z# |, K3 Z</span>.局部变量 局_整数结构, ULARGE_INTEGER, , , <font class="jammer">1 F" D6 t" |) ?( r</font><br /> .局部变量 局_文件大小, 长整数型, , , <br /> <span style="display:none">1 ]$ X* ^; w1 H) o- k1 u) z</span><font class="jammer">' k3 x4 I3 d- {+ F, _' {</font><br /> <font class="jammer">) q& C8 Z9 {, U; B6 D</font><br /> 局_整数结构.LowPart ＝ GetCompressedFileSizeA (文件路径, 局_整数结构.HighPart)<font class="jammer">8 G+ @3 |0 f" a  x</font><br /> .如果 (局_整数结构.LowPart ＜ 0)  ' 文件大小在2-4G之间时低位是负值<font class="jammer">/ l2 Z4 h4 H, O</font><br />     局_整数结构.LowPart ＝ 位与 (局_整数结构.LowPart, 2147483647)  ' 将低位和（01111111111111111111111111111111）位与，去掉负号<br /> <span style="display:none">' T3 n: j" c" }2 ?</span>    局_文件大小 ＝ 局_整数结构.HighPart × 4294967296.000000 ＋ 2147483648.000000 ＋ 局_整数结构.LowPart  ' 再加上2G和高位得到文件实际大小<font class="jammer">* `+ Z  C, I6 r% Y; C</font><br /> .否则<br /> <span style="display:none">2 F" [7 g* h  x; T</span>    局_文件大小 ＝ 局_整数结构.HighPart × 4294967296.000000 ＋ 局_整数结构.LowPart<font class="jammer">6 {  N4 W. w5 D/ w# E# Y: A</font><br /> .如果结束<br /> <span style="display:none">0 p. r/ [2 d. t8 c+ w, J! N- B</span>返回 (局_文件大小)

% x3 }7 z5 L2 U1 _6 j1 A源码复制到易语言教程:

首先复制上面的命令源码.到剪辑板.然后来到易语言的程序集界面如下图所示
$ H! z- u' v3 r0 `7 c
2 d( N! A2 }9 g
然后拖动鼠标把程序集名-窗口程序集.选中.然后粘贴上面的代码
/ Z& [7 V' `7 O7 S/ O: B
即可插入易语言命令代码哦

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

) L# {$ L+ a; E4 R: n% u
$ F3 B  v. u: a0 ~/ h  w% l# J
) P2 Q) H% G9 y. K

yyz860723

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

A8968666666

看不明白是什么   

fxy2514326

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

一决高下

! ]/ b' @0 ~& b( Q3 q6 ]- U楼主太厉害了！楼主，我爱你！我觉得易语言吧真是个好地方！