VB.NET：MemoryStream生成的ZipArchive响应输出为空问题

你的代码存在两个核心问题，直接导致了空Zip文件的生成：

• ZipArchive未完成写入就输出内存流：ZipArchive的using块未结束时，它还未将归档的结构和条目数据写入底层的MemoryStream，此时zipInMemory.Length为0是正常现象。
• 未向ZipArchiveEntry写入实际内容：你仅创建了归档条目，但没有将对应文件的内容写入条目的流中，即使流程正确，生成的Zip里也只是空占位符。

以下是修正后的代码：

Response.Clear()
Response.BufferOutput = False
Dim zipFileName As String = String.Format("Zip_{0}.zip", DateTime.Now.ToString("yyyy-MMM-dd-HHmmss"))

Using zipInMemory As New MemoryStream()
    Using zipArchive As New ZipArchive(zipInMemory, ZipArchiveMode.Create) ' 用Create模式更适合全新创建归档
        For Each drawingdoc As String In drawingdoclist
            Dim docPath As String = drawingdoc.Trim()
            If String.IsNullOrEmpty(docPath) Then Continue For
            
            ' 创建归档条目，仅保留文件名避免路径结构混乱
            Dim zipEntry As ZipArchiveEntry = zipArchive.CreateEntry(Path.GetFileName(docPath))
            
            ' 将实际文件内容写入条目流
            Using entryStream As Stream = zipEntry.Open()
                Using fileStream As New FileStream(docPath, FileMode.Open, FileAccess.Read)
                    fileStream.CopyTo(entryStream)
                End Using
            End Using
        Next
    End Using ' 此处ZipArchive完成所有数据写入到zipInMemory

    ' 处理响应输出
    Response.ContentType = "application/zip"
    ' 编码文件名避免特殊字符导致下载异常
    Response.AddHeader("content-disposition", $"attachment; filename={HttpUtility.UrlEncode(zipFileName)}")
    Response.AddHeader("Content-Length", zipInMemory.Length.ToString())
    zipInMemory.Position = 0 ' 重置流位置到开头，确保完整输出
    zipInMemory.WriteTo(Response.OutputStream)
    Response.Flush()
    Response.End()
End Using

关键修改说明：

1. 将响应输出逻辑移到ZipArchive的using块外部，确保归档数据完全写入内存流后再输出
2. 替换ZipArchiveMode.Update为Create，更适配全新创建Zip归档的场景
3. 添加了向归档条目写入文件内容的逻辑，通过流复制将本地文件内容写入到Zip条目
4. 重置MemoryStream的位置到起始点，避免从流的末尾开始输出
5. 对文件名进行URL编码，解决特殊字符导致的下载异常问题

内容的提问来源于stack exchange，提问作者Steve Grody