LZOpenFile是一种计算机术语。

VB声明

说明

该函数能执行大量不同的文件处理，而且兼容于压缩文件

返回值

Long，如函数执行成功，且样式（style）参数不为OF_READ，就返回常规的文件句柄，具体请参考OpenFile函数的说明。如样式参数为OF_READ，而且文件是压缩的，就会返回一个特殊的文件句柄，以便由LZCopy， LZRead 和 LZSeek函数使用。如出错，返回如下表所示的一个常数：

LZERROR_BADINHANDLE 源文件无效

LZERROR_BADOUTHANDLE 目标文件无效

LZERROR_GLOBALLOC 内部解压缓冲区的内存容量不足

LZERROR_GLOBLOCK 内部解压缓冲区的句柄无效

LZERROR_READ 无效的源文件格式

LZERROR_UNKNOWNALG 解压DLL不能识别源文件采用的压缩算法

LZERROR_WRITE 在磁盘上写入输出文件时出错，通常是由于磁盘空间不足造成的

实例：Private Type OFSTRUCT

cBytes As Byte

fFixedDisk As Byte

nErrCode As Integer

Reserved1 As Integer

Reserved2 As Integer

szPathName As String * 128

End Type

Private Declare Function LZCopy

Private Declare Sub LZClose

Const OF_READ = &H0

Const OF_CREATE = &H1000

Const LZERROR_BADINHANDLE = (-1)

Const LZERROR_BADOUTHANDLE = (-2)

Const LZERROR_BADVALUE = (-7)

Const LZERROR_GLOBLOCK = (-6)

Const LZERROR_PUBLICLOC = (-5)

Const LZERROR_READ = (-3)

Const LZERROR_UNKNOWNALG = (-8)

Const LZERROR_WRITE = (-4)

Private Sub Form_Load()

'KPD-Team 1999

Dim SourceStruct As OFSTRUCT, DestStruct As OFSTRUCT

Dim hSource As Long, hDest As Long, lResults As Long

'Open the source- and the destination-files

lResults = LZCopy(hSource, hDest)

'Close the files

LZClose hSource

LZClose hDest

'Check for errors

Select Case lResults

Case LZERROR_BADINHANDLE

Case LZERROR_BADOUTHANDLE

Case LZERROR_BADVALUE

Case LZERROR_GLOBLOCK

Case LZERROR_PUBLICLOC

Case LZERROR_READ

Case LZERROR_UNKNOWNALG

Case LZERROR_WRITE

End Select

End Sub

参数表

参数 类型及说明

lpszFile String，欲打开的文件名

lpOf OFSTRUCT，该结构填充的数据包括与本次处理的文件和结果有关的信息

style Long，处理方式标志常数的一种组合。参考OpenFile函数的标志常数表

注解

参考OpenFile函数