Protected Sub DownloadFiles() Using zip As New ZipFile() zip.AlternateEncodingUsage = ZipOption.AsNecessary zip.AddDirectoryByName("Files") For Each row As GridViewRow In gvFiles.Rows If TryCast(row.FindControl("chkSelect"), CheckBox).Checked Then Dim filePath As String = TryCast(row.FindControl("lblFilePath"), Label).Text zip.AddFile(filePath, "Files") End If Next Response.Clear() Response.BufferOutput = False Dim zipName As String = [String].Format("Zip_{0}.zip", DateTime.Now.ToString("yyyy-MMM-dd-HHmmss") & "AgentID_" & txtAgentID.Text) Response.ContentType = "application/zip" Response.AddHeader("content-disposition", "attachment; filename=" + zipName) zip.Save(Response.OutputStream) Response.[End]() End Using
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)