VB.NET - 在内存中下载 zip 并将文件从内存中提取到磁盘

Imports System.IO
Imports System.IO.Compression
Imports System.Net

Module Module1

    Sub Main()
        ' 下载ZIP文件
        Dim zipUrl As String = "https://example.com/example.zip"
        Dim zipData As Byte() = DownloadData(zipUrl)

        ' 将ZIP文件存储在内存中
        Using zipStream As New MemoryStream(zipData)
            ' 提取ZIP文件中的文件到磁盘
            Using zipArchive As New ZipArchive(zipStream)
                For Each entry As ZipArchiveEntry In zipArchive.Entries
                    If entry.FullName.EndsWith("/") Then
                        ' 如果是目录，则创建目录
                        Directory.CreateDirectory(entry.FullName)
                    Else
                        ' 如果是文件，则提取文件到磁盘
                        entry.ExtractToFile(entry.FullName)
                    End If
                Next
            End Using
        End Using
    End Sub

    Function DownloadData(url As String) As Byte()
        Using client As New WebClient()
            Return client.DownloadData(url)
        End Using
    End Function

End Module