Imports System.IO
Imports C1.C1Zip

Private Const DIR_COMP = "\compressed"
Private Const DIR_EXP = "\expanded"

Private Sub btnCompress_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCompress.Click
     ' アプリケーションディレクトリを取得します。
    Dim appPath As String = Application.ExecutablePath
    Dim i As Integer = appPath.IndexOf("\bin\")
    If i > 0 Then appPath = appPath.Substring(0, i)
     ' 圧縮ファイルのディレクトリを作成します。
    If (Directory.Exists(appPath + DIR_COMP)) Then
        Directory.Delete(appPath + DIR_COMP, True)
    End If
    Directory.CreateDirectory(appPath + DIR_COMP)
     ' 圧縮統計値を収集する準備をします。
    Dim count As Long
    Dim size As Long
    Dim sizeCompressed As Long
    Dim ticks As Long = DateTime.Now.Ticks
     ' アプリケーションディレクトリにあるすべてのファイルを圧縮ディレクトリに圧縮します。
    Dim files As String() = Directory.GetFiles(appPath)
    Dim srcFile As String
    For Each srcFile In files
        Dim dstFile As String
        dstFile = appPath + DIR_COMP + "\" + Path.GetFileName(srcFile) + ".cmp"
         ' ファイルを圧縮します。
        CompressFile(dstFile, srcFile)
         ' 統計値を更新します。
        count = count + 1
        size = size + New FileInfo(srcFile).Length
        sizeCompressed = sizeCompressed + New FileInfo(dstFile).Length
    Next srcFile
     ' 統計値を表示します。
    Dim msg As String = String.Format("Compressed {0} files in {1} ms." & vbCrLf & "Original size:   {2:#,###}" & vbCrLf & "Compressed size: {3:#,###} ({4:0.00}% of original)", count, (DateTime.Now.Ticks - ticks) / TimeSpan.TicksPerMillisecond, size, sizeCompressed, (sizeCompressed / size) * 100.0)
    Label1.Text = msg
     ' これで、展開することができます。
    btnExpand.Enabled = True
End Sub

Private Function CompressFile( dstFile As String, srcFile As String) As Boolean
     ' ファイルを圧縮する準備をします。
    Dim retval As Boolean = True
    Dim srcStream As FileStream = Nothing
    Dim dstStream As FileStream = Nothing
    Try
         ' ファイルを開きます。
        srcStream = New FileStream(srcFile, FileMode.Open, FileAccess.Read)
        dstStream = New FileStream(dstFile, FileMode.Create, FileAccess.Write)
         ' 書き込み先のファイルの圧縮プログラムストリームを開きます。
        Dim sw As C1ZStreamWriter = New C1ZStreamWriter(dstStream)
         ' ソースを圧縮プログラムストリームにコピーします。
        StreamCopy(sw, srcStream)
    Catch
         ' 例外? 呼び出し元に処理が失敗したことを通知します。
        retval = False
     Finally
         ' 必ずストリームを閉じます。
        If Not (srcStream Is Nothing) Then srcStream.Close()
        If Not (dstStream Is Nothing) Then dstStream.Close()
    End Try
     ' 完了。
    CompressFile = False
End Function

Private Sub StreamCopy(dstStream As Stream, srcStream As Stream)
    Dim buffer(32768) As Byte
    Dim read As Integer
    Do
        read = srcStream.Read(buffer, 0, buffer.Length)
        dstStream.Write(buffer, 0, read)
    Loop While read > 0
    dstStream.Flush()
End Sub

Private Sub btnExpand_Click(sender As Object, e As EventArgs) Handles btnExpand.Click
     ' アプリケーションディレクトリを取得します。
    Dim appPath As String = Application.ExecutablePath
    Dim i As Integer      = appPath.IndexOf("\bin\")
    If i > 0 Then appPath = appPath.Substring(0, i)
     ' 展開後ファイルのディレクトリを作成します。
    If Directory.Exists(appPath + DIR_EXP) Then
        Directory.Delete(appPath + DIR_EXP, True)
    End If
    Directory.CreateDirectory(appPath + DIR_EXP)
     ' 圧縮統計値を収集する準備をします。
    Dim count As Long
    Dim size As Long
    Dim sizeExpanded As Long
    Dim ticks As Long = DateTime.Now.Ticks
     ' compressed ディレクトリにあるファイルをすべて expanded ディレクトリに展開します。
    Dim srcFile As String
    Dim files As String()
    files = Directory.GetFiles(appPath + DIR_COMP)
    For Each srcFile In files
         ' ファイルを展開します。
        Dim dstFile As String = appPath + DIR_EXP + "\" + Path.GetFileName(srcFile)
        dstFile = dstFile.Replace(".cmp", "")
        ExpandFile(dstFile, srcFile)
         ' 統計値を更新します。
        count = count + 1
        size = size + New FileInfo(srcFile).Length
        sizeExpanded = sizeExpanded + New FileInfo(dstFile).Length
    Next srcFile
     ' 統計値を表示します。
    Dim msg As String
    msg = String.Format("Expanded {0} files in {1} ms." & vbCrLf & "Original size:   {2:#,###}" & vbCrLf & "Expanded size: {3:#,###} ({4:0.00} x size of compressed)", count, (DateTime.Now.Ticks - ticks) / TimeSpan.TicksPerMillisecond, size, sizeExpanded, sizeExpanded / size)
    Label1.Text = msg
End Sub

Private Function ExpandFile(dstFile As String, srcFile As String) As Boolean
     ' ファイルを展開する準備をします。
    Dim retval As Boolean = True
    Dim srcStream As FileStream = Nothing
    Dim dstStream As FileStream = Nothing
    Try
         ' ファイルを開きます。
        srcStream = New FileStream(srcFile, FileMode.Open, FileAccess.Read)
        dstStream = New FileStream(dstFile, FileMode.Create, FileAccess.Write)
         ' 圧縮ソースのエキスパンダストリームを開きます。
        Dim sr As C1ZstreamReader = New C1ZStreamReader(srcStream)
         ' エキスパンダストリームを出力先のファイルにコピーします。
        StreamCopy(dstStream, sr)
    Catch
         ' 例外? 呼び出し元に処理が失敗したことを通知します。
        retval = False
    Finally
         ' 必ずストリームを閉じます。
        If Not (srcStream Is Nothing) Then srcStream.Close()
        If Not (dstStream Is Nothing) Then dstStream.Close()
    End Try
   ' 完了。
  ExpandFile = retval
End Sub