【ASP.NET】Webサーバ側で複数Excelを圧縮したい

Dim filename As String = "data/Test.zip"

ls_Script3.Append("C:\\Test.txt")

Dim bis As New java.io.BufferedInputStream(New java.io.FileInputStream(ls_Script3.ToString))
Dim zos As java.util.zip.ZipOutputStream
zos = New java.util.zip.ZipOutputStream(New java.io.FileOutputStream(Server.MapPath(filename)))

Dim zEntry As java.util.zip.ZipEntry = New java.util.zip.ZipEntry(ls_Script3.ToString)
zEntry.setMethod(zos.DEFLATED)
zos.putNextEntry(zEntry)

Dim buf(2048) As System.SByte

Do
　　　Dim li_Count As Integer = bis.read(buf)
　　　If li_Count <= 0 Then
　　　　　　Exit Do
　　　Else
　　　　　　zos.write(buf, 0, li_Count)
　　　End If
Loop
bis.close()
zos.closeEntry()
zos.flush()
zos.close()

Dim ls_Script3 As New System.Text.StringBuilder
Dim filename As String = "data/Test.zip"

ls_Script3.Append("C:\\報告書_200603.xls")

Dim bis As New java.io.BufferedInputStream(New java.io.FileInputStream(ls_Script3.ToString))
Dim zos As java.util.zip.ZipOutputStream
zos = New java.util.zip.ZipOutputStream(New java.io.FileOutputStream(Server.MapPath(filename)))

Dim zEntry As java.util.zip.ZipEntry = New java.util.zip.ZipEntry(ls_Script3.ToString)
Dim hFileInfo As New System.IO.FileInfo(ls_Script3.ToString)
Dim lFileSize As Long = hFileInfo.Length
Dim buf(lFileSize) As System.SByte
Dim buf2(lFileSize) As System.SByte
zEntry.setSize(lFileSize)
zEntry.setMethod(ZipEntry.DEFLATED)

Dim crc As New java.util.zip.CRC32
Dim bis2 As New java.io.BufferedInputStream(New java.io.FileInputStream(ls_Script3.ToString))
Do
　　　Dim li_Count As Integer = bis2.read(buf2)
　　　If li_Count <= 0 Then
　　　　　　Exit Do
　　　Else
　　　　　　crc.update(li_count)
　　　End If
Loop
zEntry.setCrc(crc.getValue)
zos.putNextEntry(zEntry)

Do
　　　Dim li_Count As Integer = bis.read(buf)
　　　If li_Count <= 0 Then
　　　　　　Exit Do
　　　Else
　　　　　　zos.write(buf, 0, li_Count)
　　　End If
Loop
bis.close()
zos.closeEntry()
zos.flush()
zos.close()

    Public NotInheritable Class ZipFile

        Public Shared Overloads Sub CompressionFile(ByVal stZipFilePath As String, ParamArray stFilePathes As String())
            Dim oFileOutputStream As java.io.FileOutputStream

            Try
                oFileOutputStream = New java.io.FileOutputStream(stZipFilePath)
                Dim oZipOutputStream As java.util.zip.ZipOutputStream

                Try
                    oZipOutputStream = New java.util.zip.ZipOutputStream(oFileOutputStream)

                    For Each stFilePath As String In stFilePathes
                        CompressionFile(oZipOutputStream, stFilePath)
                    Next stFilePath
                Finally
                    If Not oZipOutputStream Is Nothing Then
                        oZipOutputStream.close()
                    End If
                End Try
            Finally
                If Not oFileOutputStream Is Nothing Then
                    oFileOutputStream.close()
                End If
            End Try
        End Sub

        Private Shared Overloads Sub CompressionFile(ByVal oZipOutputStream As java.util.zip.ZipOutputStream, ByVal stFilePath As String)
            Dim oFileInputStream As java.io.FileInputStream

            Try
                oFileInputStream = New java.io.FileInputStream(stFilePath)
                Dim oBufferdInputStream As java.io.BufferedInputStream

                Try
                    oBufferdInputStream = New java.io.BufferedInputStream(oFileInputStream)

                    Dim iFileSize As Integer = CType(New System.IO.FileInfo(stFilePath).Length, Integer)
                    Dim sbtBuffer As System.SByte() = New System.SByte(iFileSize) {}
                    Dim oCRC32    As New java.util.zip.CRC32()

                    If oBufferdInputStream.read(sbtBuffer, 0, iFileSize) > -1 Then
                         oCRC32.update(sbtBuffer, 0, iFileSize)
                         oZipOutputStream.write(sbtBuffer, 0, iFileSize)
                    End If

                    Dim oZipEntry As New java.util.zip.ZipEntry(System.IO.Path.GetFileName(stFilePath))

                    oZipEntry.setMethod(java.util.zip.ZipEntry.DEFLATED)
                    oZipEntry.setSize(iFileSize)
                    oZipEntry.setCrc(oCRC32.getValue())
                    oZipOutputStream.putNextEntry(oZipEntry)
                    oZipOutputStream.closeEntry()
                Finally
                    If Not oBufferdInputStream Is Nothing Then
                        oBufferdInputStream.close()
                    End If
                End Try
            Finally
                If Not oFileInputStream Is Nothing Then
                    oFileInputStream.close()
                End If
            End Try
        End Sub
    End Class

                                                                                                                                         
    Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        ZipFile.CompressionFile("C:\MakiMakiLove.zip", "C:\Book1.xls", "C:\Book2.xls", "C:\Book3.xls")
    End Sub