VB.NETからzipファイルを作成 (ID:114767)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

まず、「参照の追加」で「vjslib.dll」を追加します。
圧縮開始する所に記載（起動させるところに）

'「C:\A.TXT」と「C:\A.XLS」を圧縮した『C:\A.ZIP』を作るサンプル
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim outStream As New java.util.zip.ZipOutputStream(New java.io.FileOutputStream("C:\A.ZIP"))
        putFileToZip(outStream, "C:\A.TXT")
        'putFileToZip(outStream, "C:\A.XLS")
        outStream.close()
    End Sub

ここがサブルーチン場所なので別エリアに記載

Private Sub putFileToZip(ByVal outStream As java.util.zip.ZipOutputStream, ByVal Path As String)
        Dim size As Integer = CInt(FileLen(Path))
        Dim inStream As New java.io.BufferedInputStream(New java.io.FileInputStream(Path))
        Dim crc As New java.util.zip.CRC32
        Dim buf(size - 1) As SByte
        If inStream.read(buf, 0, size) <> -1 Then
            crc.update(buf, 0, size)
            outStream.write(buf, 0, size)
        End If
        Dim entry As New java.util.zip.ZipEntry(System.IO.Path.GetFileName(Path))
        entry.setMethod(java.util.zip.ZipEntry.DEFLATED)
        entry.setSize(size)
        entry.setCrc(crc.getValue())
        outStream.putNextEntry(entry)
        inStream.close()
        outStream.closeEntry()
        outStream.flush()
    End Sub

こんな感じでしょうか？
ちなみにこのソースはVB.NET用のソースです。

確かにどんなに探しても、圧縮や解凍させるソースってありませんよね。
あと、できれば、上のソース以外に圧縮や解凍をさせるソースを知っている方がいるならば、
教えてください。
お願いします。

←解決時は質問者本人がここをチェックしてください。

戻る