Zip, and Unzip is now working

1 files changed, 23 insertions, 0 deletions

diff --git a/ShiftOS-TheRevival/TerminalApplications/Internal/Com_Copy.vb b/ShiftOS-TheRevival/TerminalApplications/Internal/Com_Copy.vb
new file mode 100644
index 0000000..74f8e20
--- /dev/null
+++ b/ShiftOS-TheRevival/TerminalApplications/Internal/Com_Copy.vb
@@ -0,0 +1,23 @@
+Imports System.IO
+
+Module Com_Copy
+    Public CopyString As String
+
+    Public Sub Copy()
+        'CopyString = RawCommand
+        If RawCommand Like "copy '*' '*'" Then
+            Dim CopyEXE() As String = RawCommand.Split("''")
+            Dim DestFile As String = CopyEXE(2)
+            NewLine(DestFile)
+            DestFile.Replace("!", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\ShiftFS")
+            CopyEXE(2) = DestFile
+            NewLine(CopyEXE(2) & "\" & CopyEXE(1))
+            If File.Exists(Console.CurrentDirectory & "\" & CopyEXE(1)) = True Then
+                If Directory.Exists(CopyEXE(2)) = True Then
+                    NewLine(Console.CurrentDirectory & "\" & CopyEXE(1))
+                    File.Copy(Console.CurrentDirectory & "\" & CopyEXE(1), CopyEXE(2) & "\" & CopyEXE(1))
+                End If
+            End If
+        End If
+    End Sub
+End Module