modglobal.cls

来自「WinBig. A file archive utility written i」· CLS 代码 · 共 47 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "ModGlobal"
Attribute VB_GlobalNameSpace = True
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit

Private mTempDir As String

Private Sub Class_Initialize()
    Call ModCode.Build_CRC32_Table
    Call ModLZSS.InitializeLZSS
    mTempDir = VBA.Environ$("TEMP")
End Sub

Public Property Get TempDir() As String
    TempDir = mTempDir + "\"
End Property

Public Function Compact(Bytes() As Byte) As Byte()
    Compact = ModLZSS.Compact(Bytes)
End Function

Public Function UnCompact(Bytes() As Byte) As Byte()
    UnCompact = ModLZSS.UnCompact(Bytes)
End Function

Public Function CrcString(Text As String) As Currency
    CrcString = ModCode.CrcString(Text)
End Function

Public Property Get Error() As cError
    Set Error = ModCode.oError
End Property

Public Function SetTime(filename As String, Time As Date) As Boolean
    SetTime = ModCode.SetTime(filename, Time)
End Function