[
{
"Id": "1011985",
"ThreadId": "435808",
"Html": "I NEED HELP using dotnetzip and VB!\r
\n
\nI need to separate the files to download and zip into four categories that are listed separately but the user will be able to select files from all categories for download. (I just want one download button instead of four).\r
\n
\nHere's a link to my attempt to get this working: http://www.healthequity.com/NewSalesTest/checkbox/test4.aspx\r
\n
\nFor simplicity and since I'm a newbie, I'm trying to work out the kinks with just two categories. My code is below:\r
\n
\nDim width as String = "100%"\r
\nPublic Sub Page_Load (ByVal sender As Object, ByVal e As System.EventArgs)
\nTry\n If Not ( Page.IsPostBack ) Then\n ' populate the dropdownlist\n Dim hsaPath as String= Server.MapPath("docs/hsa")\n Dim hraPath as String= Server.MapPath("docs/hra")\n\n Dim hsaFilenames As New List(Of String)(System.IO.Directory.GetFiles(hsaPath))\n Dim hraFilenames As New List(Of String)(System.IO.Directory.GetFiles(hraPath))\n\n\n Dim hsaDocs as List(Of String) = _\n hsaFilenames.ConvertAll (Function(s) s.Replace(hsaPath & "\\", ""))\n\n Dim hraDocs as List(Of String) = _\n hraFilenames.ConvertAll (Function(s) s.Replace(hraPath & "\\", ""))\n\n ErrorMessage.InnerHtml = ""\n\n hsaFileListView.DataSource = hsaDocs\n hraFileListView.DataSource = hraDocs\n hsaFileListView.DataBind()\n hraFileListView.DataBind()\n End If\n\nCatch\n ' Ignored\nEnd Try\n
\n\nEnd Sub\r
\n
\n
\n
\nPublic Sub btnGo_Click (ByVal sender As System.Object, ByVal e As System.EventArgs)
\nErrorMessage.InnerHtml ="" ' debugging only\n\nDim HSAfilesToInclude as New System.Collections.Generic.List(Of String)()\nDim HRAfilesToInclude as New System.Collections.Generic.List(Of String)()\n\nDim hsaPath as String= Server.MapPath("docs/hsa")\nDim hraPath as String= Server.MapPath("docs/hra")\n\nDim HSAsource As DataKeyArray= hsaFileListView.DataKeys\nDim HRAsource As DataKeyArray= hraFileListView.DataKeys\n
\n\nFor Each item As ListViewDataItem in hsaFileListView.Items
\n Dim chkbox As CheckBox= CType(item.FindControl("HSAinclude"), CheckBox)\n Dim lbl As Label = CType(item.FindControl("HSAlabel"), Label)\n\n If Not (chkbox Is Nothing OR lbl Is Nothing) Then\n If (chkbox.Checked) Then\n ErrorMessage.InnerHtml = ErrorMessage.InnerHtml & _\n String.Format("adding file: {0}<br/>", lbl.Text)\n HSAfilesToInclude.Add(System.IO.Path.Combine(hsaPath,lbl.Text))\n 'filesToInclude.Concat(HSAfilesToInclude)\n End If\n End If\nNext\n\nFor Each item As ListViewDataItem in hraFileListView.Items\n\n Dim chkbox As CheckBox= CType(item.FindControl("HRAinclude"), CheckBox)\n Dim lbl As Label = CType(item.FindControl("HRAlabel"), Label)\n\n If Not (chkbox Is Nothing OR lbl Is Nothing) Then\n If (chkbox.Checked) Then\n ErrorMessage.InnerHtml = ErrorMessage.InnerHtml & _\n String.Format("adding file: {0}<br/>", lbl.Text)\n HRAfilesToInclude.Add(System.IO.Path.Combine(hraPath,lbl.Text))\n 'filesToInclude.Concat(HRAfilesToInclude)\n End If\n End If\nNext\n\nDim filesToInclude as New System.Collections.Generic.List(Of String)()\nfilesToInclude.Concat(HSAfilesToInclude)\nfilesToInclude.Concat(HRAfilesToInclude)\n\n If (filesToInclude.Count=0) Then\n ErrorMessage.InnerHtml = ErrorMessage.InnerHtml & "You did not select any files!"\nElse\n Response.Clear\n Response.BufferOutput= false\n\n Dim c As System.Web.HttpContext = System.Web.HttpContext.Current\n Dim ReadmeText As String= String.Format("README.TXT\\n\\nHello!\\n\\n" & _\n "This is a zip file that was dynamically generated at {0}\\n" & _\n "by an ASP.NET Page running on the machine named '{1}'.\\n" & _\n "The server type is: {2}\\n" & _\n System.DateTime.Now.ToString("G"), _\n System.Environment.MachineName, _\n c.Request.ServerVariables("SERVER_SOFTWARE"))\n Dim archiveName as String= String.Format("archive-{0}.zip", DateTime.Now.ToString("yyyy-MMM-dd-HHmmss"))\n Response.ContentType = "application/zip"\n Response.AddHeader("Content-Disposition", "inline; filename=" & chr(34) & archiveName & chr(34))\n\n Dim tempfile As String = "c:\\temp\\" & archiveName\n Using zip as new ZipFile()\n ' the Readme.txt file will not be password-protected.\n zip.AddEntry("Readme.txt", ReadmeText, Encoding.Default)\n\n ' filesToInclude is a string[] or List<String>\n zip.AddFiles(filesToInclude, "files")\n\n ' save the zip to a filesystem file\n zip.Save(tempfile)\n End Using\n\n ' open and read the file, and copy it to Response.OutputStream\n Using fs as System.IO.FileStream = System.IO.File.OpenRead("c:\\temp\\" & archiveName)\n dim b(1024) as Byte\n dim n as New Int32\n n=-1\n While (n <> 0)\n n = fs.Read(b,0,b.Length)\n If (n <> 0)\n Response.OutputStream.Write(b,0,n)\n End If\n End While\n End Using\n Response.Close\n System.IO.File.Delete(tempfile)\n\nEnd If\n
\n\nEnd Sub\r
\n
\n
\n</script>\r
\n
\n
\n
\n<html>
\n<head>\r\n <link rel="stylesheet" href="style/basic.css">\r\n </head>\r\n<body>
\n<form id="Form" runat="server">\n\n <span class="SampleTitle"><b>Check the boxes to select the files, set a password if you like, then click the button to zip them up.</b></span>\n <br/>\n <br/>\n <span style="color:red" id="ErrorMessage" runat="server"/>\n <br/>\n<h2>HSA</h2>\n <asp:ListView ID="hsaFileListView" runat="server">\n\n <LayoutTemplate>\n <table>\n <tr ID="itemPlaceholder" runat="server" />\n </table>\n </LayoutTemplate>\n\n <ItemTemplate>\n <tr>\n <td><asp:Checkbox ID="HSAinclude" runat="server"/></td>\n <td><asp:Label id="HSAlabel" runat="server" Text="<%# Container.DataItem %>" /></td>\n </tr>\n </ItemTemplate>\n\n <EmptyDataTemplate>\n <div>Nothing to see here...</div>\n </EmptyDataTemplate>\n\n </asp:ListView>\n<h2>HRA</h2> \n <asp:ListView ID="hraFileListView" runat="server">\n\n <LayoutTemplate>\n <table>\n <tr ID="itemPlaceholder" runat="server" />\n </table>\n </LayoutTemplate>\n\n <ItemTemplate>\n <tr>\n <td><asp:Checkbox ID="HRAinclude" runat="server"/></td>\n <td><asp:Label id="HRAlabel" runat="server" Text="<%# Container.DataItem %>" /></td>\n </tr>\n </ItemTemplate>\n\n <EmptyDataTemplate>\n <div>Nothing to see here...</div>\n </EmptyDataTemplate>\n\n </asp:ListView>\n\n <br/>\n <br/>\n <asp:Button id="btnGo" Text="Zip checked files" AutoPostBack OnClick="btnGo_Click" runat="server"/>\n\n</form>\n
\n\n</body>\r
\n
\n</html>
\n",
"PostedDate": "2013-03-07T12:43:57.983-08:00",
"UserRole": null,
"MarkedAsAnswerDate": null
}
]