mirror of
https://github.com/EverythingWindows/ShiftOS-TheRevival-Old.git
synced 2025-01-23 18:22:17 +00:00
37 lines
2 KiB
VB.net
37 lines
2 KiB
VB.net
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
|