1 files changed, 37 insertions, 0 deletions
diff --git a/ShiftOS-TheRevival/TerminalApplications/Internal/Com_Zip.vb b/ShiftOS-TheRevival/TerminalApplications/Internal/Com_Zip.vb
new file mode 100644
index 0000000..b48d2ae
--- /dev/null
+++ b/ShiftOS-TheRevival/TerminalApplications/Internal/Com_Zip.vb
@@ -0,0 +1,37 @@
+Imports System.IO
+Imports System.IO.Compression
+
+Module Com_Zip
+    Public ZipString As String
+
+    Public Sub Zip()
+        ZipString = RawCommand.Substring(4)
+        If ZipString Like "-f '*.zip' '*'" Then
+            Dim ZipEXE() As String = ZipString.Split("''")
+            If File.Exists(Console.CurrentDirectory & "\" & ZipEXE(3)) = True Then
+                Dim ZipRandomInt As Integer
+                Dim ZipRandom As New Random
+                ZipRandomInt = ZipRandom.Next(1, 1000000)
+                NewLine("Creating temporary place for selected file...")
+                Directory.CreateDirectory(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\ZIP" & ZipRandomInt)
+                NewLine("Assigning place for the selected file...")
+                File.Copy(Console.CurrentDirectory & "\" & ZipEXE(3), Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\ZIP" & ZipRandomInt & "\" & ZipEXE(3))
+                NewLine("Compressing the file into a zip file...")
+                ZipFile.CreateFromDirectory(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\ZIP" & ZipRandomInt, Console.CurrentDirectory & "\" & ZipEXE(1))
+                NewLine("Removing temporary place of the file...")
+                Directory.Delete(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\ZIP" & ZipRandomInt, True)
+            Else
+
+            End If
+        End If
+        If ZipString Like "-d '*.zip' '*'" Then
+            Dim ZipEXE() As String = ZipString.Split("''")
+            If Directory.Exists(Console.CurrentDirectory & "\" & ZipEXE(3)) = True Then
+                NewLine("Compressing the directory into a zip file...")
+                ZipFile.CreateFromDirectory(Console.CurrentDirectory & "\" & ZipEXE(3), Console.CurrentDirectory & "\" & ZipEXE(1))
+            Else
+
+            End If
+        End If
+    End Sub
+End Module