Responsive Julius Version1

DownloadsJulius.aspx.vb

@@ -0,0 +1,52 @@
+
+Imports System.IO
+Imports Ionic.Zip
+
+Partial Class DownloadsJulius
+    Inherits System.Web.UI.Page
+
+    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
+        If Not IsPostBack Then
+            Dim filePaths As String() = Directory.GetFiles(Server.MapPath("~/downloads/"))
+            Dim files As New List(Of ListItem)()
+
+            For Each filePath As String In filePaths
+                files.Add(New ListItem(Path.GetFileName(filePath), filePath))
+            Next
+            GridView1.DataSource = files
+            GridView1.DataBind()
+        End If
+    End Sub
+
+
+    Protected Sub DownloadFiles(sender As Object, e As EventArgs)
+        Using zip As New ZipFile()
+            zip.AlternateEncodingUsage = ZipOption.AsNecessary
+            zip.AddDirectoryByName("Files")
+            For Each row As GridViewRow In GridView1.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"))
+            Response.ContentType = "application/zip"
+            Response.AddHeader("content-disposition", "attachment; filename=" + zipName)
+            zip.Save(Response.OutputStream)
+            Response.End()
+        End Using
+    End Sub
+
+
+
+    Protected Sub chkSelect_CheckedChanged(sender As Object, e As EventArgs)
+        Dim linkedItem As CheckBox = sender
+        If linkedItem.Checked = True Then
+
+            linkedItem.Attributes.CssStyle.Add("backcolour", "#043381")
+        End If
+
+    End Sub
+End Class