From ad70e4162d8c55c0a882997a0c47c168b286e5d1 Mon Sep 17 00:00:00 2001 From: EverythingWindows Date: Sun, 20 Nov 2022 02:25:18 +0700 Subject: Zip, and Unzip is now working --- .../TerminalApplications/Internal/Com_Copy.vb | 23 ++++++++++++++++++++++ 1 file changed, 23 insertions(+) create mode 100644 ShiftOS-TheRevival/TerminalApplications/Internal/Com_Copy.vb (limited to 'ShiftOS-TheRevival/TerminalApplications/Internal/Com_Copy.vb') 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 -- cgit v1.2.3