如何压缩文件夹

Question

我有一个链接。当用户单击此按钮时，我想运行一些代码来压缩桌面上的文件夹，然后开始下载。

文件夹路径为C:/users/dave/desktop/myFolder

aspx文件中的

：

<asp:HyperLink ID="HyperLink1" runat="server">zip folder and download </asp:HyperLink>

在aspx.vb文件中：

如何在此处编写代码来压缩桌面上的文件夹并开始下载此zip文件夹？有没有办法在不下载额外的库和插件的情况下完成它？

Answer 1

添加对System.IO.Compression.FileSystem

的引用

然后您可以使用以下内容压缩文件夹：

Dim tempFile = System.IO.Path.GetTempFileName() + ".zip"
System.IO.Compression.ZipFile.CreateFromDirectory("C:\temp\awesome", tempFile)

然后下载它，您可以在响应中发送它：

Response.Buffer = false
Response.Clear()
Response.AddHeader("content-disposition", "attachment;filename=Desktop.zip")
Response.ContentType = "Application/zip"
Response.TransmitFile(tempFile)
Response.End()