袁飞大侠及API高手请进

Question

这样解决：
 1。合并成一个文件： 将所有文件采用二进制读取，写入到一个文件。同时产生一个报告文件，里面记录着各个文件的分段（字节）和目录结构。
 2。 选择一种压缩算法（这可不是凭空能说出来的）：具体方法是访问一些VB，最好是VC站点。它们里面绝对有关于常用的压缩算法如ZIP，RAR等。然后运用这种算法压缩该文件。 解压后，读取报告文件还原。不知哪位大虾有更好的方法，小弟洗耳恭听。

Answer 1

http://www.21code.com/codebase/?pos=list&type=search&key=压缩

Answer 2

NightBreak(午夜黎明)　大家都属鸡哎！（与本问题无关）
怎么解决？

Answer 3

什么属鸡属鸡？ 不是很明白老兄高深之言论。我只是纳闷，问题一定要别人把所有的代码放上去才明白，难道自己需要做的只是COPY & CUT ?
 真没意思。（老兄莫见怪，情不自禁）

Answer 4

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 LZOpenFile Lib "lz32.dll" Alias "LZOpenFileA" (ByVal lpszFile As String, lpOf As OFSTRUCT, ByVal style As Long) As Long
Private Declare Function LZCopy Lib "lz32.dll" (ByVal hfSource As Long, ByVal hfDest As Long) As Long
Private Declare Sub LZClose Lib "lz32.dll" (ByVal hfFile As Long)
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()
    Dim SourceStruct As OFSTRUCT, DestStruct As OFSTRUCT
    Dim hSource As Long, hDest As Long, lResults As Long
    'Open the source- and the destination-files
    hSource = LZOpenFile("c:\myfile.tx_", SourceStruct, OF_READ)
    hDest = LZOpenFile("c:\myfile.tx", DestStruct, OF_CREATE)
    'Copy the files
    lResults = LZCopy(hSource, hDest)
    'Close the files
    LZClose hSource
    LZClose hDest
    'Check for errors
    Select Case lResults
        Case LZERROR_BADINHANDLE
            MsgBox "LZERROR_BADINHANDLE"
        Case LZERROR_BADOUTHANDLE
            MsgBox "LZERROR_BADOUTHANDLE"
        Case LZERROR_BADVALUE
            MsgBox "LZERROR_BADVALUE"
        Case LZERROR_GLOBLOCK
            MsgBox "LZERROR_GLOBLOCK"
        Case LZERROR_PUBLICLOC
            MsgBox "LZERROR_PUBLICLOC"
        Case LZERROR_READ
            MsgBox "LZERROR_READ"
        Case LZERROR_UNKNOWNALG
            MsgBox "LZERROR_UNKNOWNALG"
        Case LZERROR_WRITE
            MsgBox "LZERROR_WRITE"
    End Select
End Sub

Answer 5

to uguess(uguess)　:谢谢，我好长时间没有看到你了！
请来点中文注释，可以吗？

Answer 6

uguess(uguess)的编程效率真高啊。