VB zip圧縮

            Try
                Using zip As New Ionic.Zip.ZipFile(System.Text.Encoding.GetEncoding("shift_jis"))
                    'フォルダ内のファイルを全て格納
                    '圧縮レベルを変更 
                    zip.CompressionLevel = Ionic.Zlib.CompressionLevel.BestCompression
                    '圧縮せずに格納する 
                    '必要な時はZIP64で圧縮する。デフォルトはNever。 
                    zip.UseZip64WhenSaving = Ionic.Zip.Zip64Option.AsNecessary
                    'エラーが出てもスキップする。デフォルトはThrow。 
                    'ZIP書庫にコメントを付ける 
                    zip.Comment = "hoge"
                    'フォルダ内をワイルドカードで検索したファイルをすべて圧縮 
                    zip.AddSelectedFiles("*.txt", zipFolder_path, _
                                        directoryPathInArchive, False)
                    'ZIP書庫を作成する zip後のファイル名
                    zip.Save(Desktop_path & "\" & "archive.zip")
                End Using
                '一時フォルダ削除
                My.Computer.FileSystem.DeleteDirectory(zipFolder_path, _
                    FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.DeletePermanently, _
                    FileIO.UICancelOption.DoNothing)
            Catch ex As Exception
                Throw
                Exit Function
            End Try

はじめてのVisual Studio 2008 Professional Edition対応 (TECHNICAL MASTER)