精华区文章阅读

发信人: bloom (├┝┞┟┠┢┣�), 信区: VB
标题: GetCompressedFileSize(文件处理)(转载)
发信站: 哈工大紫丁香 (2000年09月07日18:37:28 星期四), 转信

【以下文字转载自 cnTemp 讨论区】
【原文由 catchy 所发表】
发信人: yucheng (无话可说), 信区: VisualBasic
发信站: BBS 水木清华站 (Sat Apr 8 01:52:17 2000) WWW-POST

GetCompressedFileSize

VB声明
Declare Function GetCompressedFileSize Lib "kernel32" Alias "GetCompressedFile
SizeA" (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函数的结果有异，从而判
断文件是否也被压缩（如有异，表明文件已被压缩）

--

--
☆ 来源:．哈工大紫丁香 bbs.hit.edu.cn．[FROM: casi.bbs@smth.org]
--
※ 转载:．哈工大紫丁香 bbs.hit.edu.cn．[FROM: 202.118.247.254]

VB 版 (精华区)