From 2fa56446be7a049994786931e9145043362e8adb Mon Sep 17 00:00:00 2001 From: EverythingWindows Date: Sun, 20 Nov 2022 16:43:01 +0700 Subject: Guide command, MathQuiz App, ShiftOS About, and more --- ShiftOS-TheRevival/TerminalApplications/Internal/Com_Zip.vb | 3 +++ 1 file changed, 3 insertions(+) (limited to 'ShiftOS-TheRevival/TerminalApplications/Internal/Com_Zip.vb') diff --git a/ShiftOS-TheRevival/TerminalApplications/Internal/Com_Zip.vb b/ShiftOS-TheRevival/TerminalApplications/Internal/Com_Zip.vb index b48d2ae..27d55de 100644 --- a/ShiftOS-TheRevival/TerminalApplications/Internal/Com_Zip.vb +++ b/ShiftOS-TheRevival/TerminalApplications/Internal/Com_Zip.vb @@ -3,6 +3,7 @@ Imports System.IO.Compression Module Com_Zip Public ZipString As String + Public NothingIn As Boolean = True Public Sub Zip() ZipString = RawCommand.Substring(4) @@ -20,6 +21,7 @@ Module Com_Zip 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) + NothingIn = False Else End If @@ -29,6 +31,7 @@ Module Com_Zip 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)) + NothingIn = False Else End If -- cgit v1.2.3