diff options
| author | EverythingWindows <[email protected]> | 2022-11-20 16:43:01 +0700 |
|---|---|---|
| committer | EverythingWindows <[email protected]> | 2022-11-20 16:43:01 +0700 |
| commit | 2fa56446be7a049994786931e9145043362e8adb (patch) | |
| tree | fd715e8afde59181985e3e2c654dfbfeeda27880 /ShiftOS-TheRevival/TerminalApplications/Internal/Com_Zip.vb | |
| parent | 5ae42df217ded307bb8e33611d2292ebdb523a18 (diff) | |
| download | shiftos-therevival-old-2fa56446be7a049994786931e9145043362e8adb.tar.gz shiftos-therevival-old-2fa56446be7a049994786931e9145043362e8adb.tar.bz2 shiftos-therevival-old-2fa56446be7a049994786931e9145043362e8adb.zip | |
Guide command, MathQuiz App, ShiftOS About, and more
Diffstat (limited to 'ShiftOS-TheRevival/TerminalApplications/Internal/Com_Zip.vb')
| -rw-r--r-- | ShiftOS-TheRevival/TerminalApplications/Internal/Com_Zip.vb | 3 |
1 files changed, 3 insertions, 0 deletions
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 |