From edd3a4a8886a982e396d3d2226dc2a67a889181d Mon Sep 17 00:00:00 2001
From: Speedvicio <speedvicio@hotmail.com>
Date: Wed, 25 Mar 2020 01:49:25 +0100
Subject: [PATCH] - Added ability to create a zip file after conversion

---
 Laziass/LazyAss.Designer.vb | 14 ++++++++++++++
 Laziass/LazyAss.resx        |  3 +++
 Laziass/LazyAss.vb          | 10 ++++++++++
 Laziass/LazyAss.vbproj      |  1 +
 4 files changed, 28 insertions(+)

diff --git a/Laziass/LazyAss.Designer.vb b/Laziass/LazyAss.Designer.vb
index 463fe65..dcdd440 100644
--- a/Laziass/LazyAss.Designer.vb
+++ b/Laziass/LazyAss.Designer.vb
@@ -71,6 +71,7 @@ Partial Class LazyAss
         Me.GroupBox4 = New System.Windows.Forms.GroupBox()
         Me.Label6 = New System.Windows.Forms.Label()
         Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
+        Me.CreateZip = New System.Windows.Forms.CheckBox()
         Me.ContextMenuStrip1.SuspendLayout()
         Me.GroupBox1.SuspendLayout()
         Me.GroupBox2.SuspendLayout()
@@ -571,11 +572,23 @@ Partial Class LazyAss
         Me.SaveFileDialog1.DefaultExt = "ccd"
         Me.SaveFileDialog1.RestoreDirectory = True
         '
+        'CreateZip
+        '
+        Me.CreateZip.AutoSize = True
+        Me.CreateZip.Location = New System.Drawing.Point(12, 499)
+        Me.CreateZip.Name = "CreateZip"
+        Me.CreateZip.Size = New System.Drawing.Size(156, 17)
+        Me.CreateZip.TabIndex = 58
+        Me.CreateZip.Text = "Create Zip After Conversion"
+        Me.ToolTip1.SetToolTip(Me.CreateZip, "Create compressed archive after conversion")
+        Me.CreateZip.UseVisualStyleBackColor = True
+        '
         'LazyAss
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(498, 521)
+        Me.Controls.Add(Me.CreateZip)
         Me.Controls.Add(Me.Label6)
         Me.Controls.Add(Me.GroupBox4)
         Me.Controls.Add(Me.LogSave)
@@ -663,4 +676,5 @@ Partial Class LazyAss
     Friend WithEvents Label6 As Label
     Friend WithEvents SaveFileDialog1 As SaveFileDialog
     Friend WithEvents RadioButton4 As RadioButton
+    Friend WithEvents CreateZip As CheckBox
 End Class
diff --git a/Laziass/LazyAss.resx b/Laziass/LazyAss.resx
index 913aaeb..deac92d 100644
--- a/Laziass/LazyAss.resx
+++ b/Laziass/LazyAss.resx
@@ -126,6 +126,9 @@
   <metadata name="BackgroundWorker1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>17, 17</value>
   </metadata>
+  <metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>180, 17</value>
+  </metadata>
   <data name="RadioButton5.ToolTip" xml:space="preserve">
     <value>Bchunk Extraction (Alternative)
 PROS - Really good speed extraction
diff --git a/Laziass/LazyAss.vb b/Laziass/LazyAss.vb
index 817e40a..0ed1619 100644
--- a/Laziass/LazyAss.vb
+++ b/Laziass/LazyAss.vb
@@ -1,5 +1,6 @@
 Imports System.ComponentModel
 Imports System.IO
+Imports System.IO.Compression
 Imports BizHawk.Emulation.DiscSystem
 Imports DiscTools
 
@@ -1315,7 +1316,10 @@ Public Class LazyAss
                           "Time Elapsed:  " & duration.Duration.ToString)
         If LogSave.Checked = True Then SaveLog()
 
+        If CreateZip.Checked = True Then MakeZip()
+
         MsgBox("Conversion Done!", vbInformation + MsgBoxStyle.OkOnly)
+
         Try
             If DI.GetFiles.GetLength(0) > 4 Then
                 If File.Exists(OutputPath.Text & RippedName.Text & "\" & RippedName.Text & "_backup.cue") And
@@ -1342,6 +1346,12 @@ Public Class LazyAss
 
     End Sub
 
+    Private Sub MakeZip()
+        Dim startPath As String = Path.Combine(OutputPath.Text, RippedName.Text)
+        Dim zipPath As String = Path.Combine(OutputPath.Text, RippedName.Text & ".zip")
+        ZipFile.CreateFromDirectory(startPath, zipPath, CompressionLevel.Optimal, False)
+    End Sub
+
     Private Sub SaveLog()
         If File.Exists(Application.StartupPath & "\LogOut.txt") Then File.Delete(Application.StartupPath & "\LogOut.txt")
         LogOut.SaveFile(Application.StartupPath & "\LogOut.txt",
diff --git a/Laziass/LazyAss.vbproj b/Laziass/LazyAss.vbproj
index 6f6bb48..cf8c9e0 100644
--- a/Laziass/LazyAss.vbproj
+++ b/Laziass/LazyAss.vbproj
@@ -74,6 +74,7 @@
     </Reference>
     <Reference Include="System" />
     <Reference Include="System.Drawing" />
+    <Reference Include="System.IO.Compression.FileSystem" />
     <Reference Include="System.Windows.Forms" />
     <Reference Include="System.Core">
       <RequiredTargetFramework>3.5</RequiredTargetFramework>