zipfileentry.cls

用VB调用ZIP.dll和unzip.dll实现文件的压缩和解压缩。

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "ZipFileEntry"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
'==============================================================================
'Richsoft Computing 2001
'Richard Southey
'This code is e-mailware, if you use it please e-mail me and tell me about
'your program.
'
'For latest information about this and other projects please visit my website:
'www.richsoftcomputing.btinternet.co.uk
'
'If you would like to make any comments/suggestions then please e-mail them to
'[e-mail]
'==============================================================================

'Class that holds the file info
Public Version As Integer
Public Flag As Integer
Public CompressionMethod As Integer
Public FileDateTime As String
Public CRC32 As Long
Public CompressedSize As Long
Public UncompressedSize As Long
Public FileNameLength As Integer
Public ExtraFieldLength As Integer
Public Filename As String