文件_取实际大小

易辈子

易语言命令名称：文件_取实际大小
3 O' L8 \7 ^4 }& N9 D; H: E+ T5 T
& h- F: H; h& q/ `
5 G# p  w7 t4 V. r+ u* N: ~- t命令功能介绍:文件_取实际大小
% c( r3 k8 J; |) R' R, l6 i0 ~: n
* h$ b4 o% d( [' M8 b. X% Q9 E
# `. Y# S/ s: d/ R; N$ _- a命令类别:精易模块命令
  [7 z( D* ^' Z% z' |

命令使用说明:在易语言中调用即可。


. H4 W- k2 q* T3 n; n# v/ a1 @
; H! Z2 j4 v# @" R' }9 K" l

) v5 g# s$ X/ D8 ]命令源码:

  

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

变量名	类 型	静态	数组	备 注
局_整数结构	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">6 a- @/ s" H: g</span>.参数 文件路径, 文本型, , <br /> <span style="display:none"># ?8 n* ]2 C, m" Z; ~2 a- u# s& V</span>.局部变量 局_整数结构, ULARGE_INTEGER, , , <br /> <span style="display:none">+ ~2 A9 g# b( |" u- i* k</span>.局部变量 局_文件大小, 长整数型, , , <font class="jammer">1 R8 D! B# F5 U! J4 Q4 V+ t</font><br /> <br /> <span style="display:none">. h! w. C3 l; n7 X+ A- a</span><font class="jammer">9 q+ F1 X+ p' _9 N6 W  ^( ?9 N* a/ V</font><br /> 局_整数结构.LowPart ＝ GetCompressedFileSizeA (文件路径, 局_整数结构.HighPart)<font class="jammer">: t) Q/ ]' c! g4 ]4 W% P</font><br /> .如果 (局_整数结构.LowPart ＜ 0)  ' 文件大小在2-4G之间时低位是负值<font class="jammer">( R! n, C- v* ]# q, i* ]</font><br />     局_整数结构.LowPart ＝ 位与 (局_整数结构.LowPart, 2147483647)  ' 将低位和（01111111111111111111111111111111）位与，去掉负号<font class="jammer">  l$ n" A# j; i. b2 w' p, j</font><br />     局_文件大小 ＝ 局_整数结构.HighPart × 4294967296.000000 ＋ 2147483648.000000 ＋ 局_整数结构.LowPart  ' 再加上2G和高位得到文件实际大小<font class="jammer">5 n" s8 K! X7 y</font><br /> .否则<br /> <span style="display:none">: U0 ~5 r& J- L  O$ ?, k# O</span>    局_文件大小 ＝ 局_整数结构.HighPart × 4294967296.000000 ＋ 局_整数结构.LowPart<br /> <span style="display:none">) t9 j: Y6 |/ |7 `, t5 x</span>.如果结束<br /> <span style="display:none">7 i8 _5 a# ^9 h7 S1 D7 t% d</span>返回 (局_文件大小)

/ j: A4 {; t, c3 `
- p$ r& I1 R* n; s源码复制到易语言教程:
0 S4 N1 V0 M+ _# X! g
# c1 F5 O. u6 x+ l/ {: t5 S  _首先复制上面的命令源码.到剪辑板.然后来到易语言的程序集界面如下图所示
( ?) i1 z, q! c6 \

5 U+ X0 o- Z# p0 l然后拖动鼠标把程序集名-窗口程序集.选中.然后粘贴上面的代码

即可插入易语言命令代码哦
- R2 L7 w) E% l6 a0 A; B- T
+ _( T( k" j6 k* B, r5 oDLL源码复制到易语言教程：



; p8 H9 l# j) o/ A1 C

yyz860723

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

A8968666666

看不明白是什么   
- ]3 I( G$ ]# W' A

fxy2514326

! |, _. g- b, H0 b" G+ v1 l楼主发贴辛苦了，谢谢楼主分享

一决高下

9 a, A/ ]! d$ c' Y5 L0 M楼主太厉害了！楼主，我爱你！我觉得易语言吧真是个好地方！