GetCompressedFileSize
VB声明
Declare Function GetCompressedFileSize Lib "kernel32" Alias "GetCompressedFileSizeA" (ByVal lpFileName As String, lpFileSizeHigh As Long) As Long
说明
判断一个压缩文件在磁盘上实际占据的字节数
返回值
Long，返回文件长度。&HFFFFFFFF表示出错。注意如lpFileSizeHigh不为NULL，且结果为&HFFFFFFFF，那么必须调用GetLastError，判断是否实际发生了一个错误，因为这是一个有效的结果
参数表
参数 类型及说明
lpFileName String，欲测试的文件名
lpFileSizeHigh Long，指定一个Long值，用于装载一个64位文件尺寸的高32位。如长度没有超过2＾32字节，则可设为NULL（变成ByVal）
注解
如磁盘卷已被压缩，可检查这个函数的结果是否与GetFileSize函数的结果有异，从而判断文件是否也被压缩（如有异，表明文件已被压缩）