获取文件详细的属性

易语言 2020-08-20 17:17:09

获取文件详细的属性

取文件详细属性源码是易语言API应用例程。

RtlMoveMemory (lstrcpyn_长整形 (临时结构.大小, 临时结构.大小, 0) + 4, FILE_ATTRIBUTE.nFileSizeHigh, 4)
RtlMoveMemory (lstrcpyn_长整形 (临时结构.大小, 临时结构.大小, 0), FILE_ATTRIBUTE.nFileSizeLow, 4)
' 实际占用空间,其实就是按照4kb对齐来算的
.判断开始 (临时结构.大小 % 4096 > 0)
临时结构.占用空间 = 临时结构.大小 \ 4096
临时结构.占用空间 = 临时结构.占用空间 × 4096 + 4096
.默认
临时结构.占用空间 = 临时结构.大小
.判断结束
返回值 = GetFileAttributes (文件名)
' 取文件属性,还可以加的,你们自己加了吧,常量值都在常量表里边了
临时结构.隐藏 = 位与 (返回值, #FILE_ATTRIBUTE_HIDDEN) ≠ 0
临时结构.只读 = 位与 (返回值, #FILE_ATTRIBUTE_READONLY) ≠ 0
临时结构.系统文件 = 位与 (返回值, #FILE_ATTRIBUTE_SYSTEM) ≠ 0
临时结构.存档 = 位与 (返回值, #FILE_ATTRIBUTE_ARCHIVE) ≠ 0