| 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函数的结果有异，从而判断文件是否也被压缩（如有异，表明文件已被压缩） |
|