vb.net - サイズが1GBを超えるzipファイルの作成方法（必要なファイルを圧縮した後のzipファイルのサイズ）

Question

zipファイルを作成しようとしています（vb2005を使用）。zipファイルが1GBを超える場合、コードは機能しません...次のコードを試しました。

Imports System.IO.Compression
Imports System.IO.Packaging

strDownloadFilePath= txtpath.text

Dim clsNewZip As Package = Nothing

clsNewZip = ZipPackage.Open(strDownloadFilePath, _
     IO.FileMode.OpenOrCreate,FileAccess.ReadWrite)

Dim uriFileName As String = strDestinationPath.Replace(" ", "_")

Dim zipUri As String = String.Concat("/", IO.Path.GetFileName(uriFileName))
Dim partUri As New Uri(zipUri, UriKind.Relative)
Dim contentType As String = Net.Mime.MediaTypeNames.Application.Zip
Dim pkgPart As PackagePart = clsNewZip.CreatePart(partUri,contentType, _
         CompressionOption.Normal)
Dim bites As Byte() = File.ReadAllBytes(strDestinationPath)

pkgPart.GetStream().Write(bites, 0, bites.Length)

clsNewZip.Close()