shiftos-archive/ShiftOS-TheRevival-Old
1
0
Fork 0
mirror of https://github.com/EverythingWindows/ShiftOS-TheRevival-Old.git synced 2025-01-22 18:02:16 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Optimization on UNZIP

Browse source
This commit is contained in:
EverythingWindows 2022-11-20 19:50:10 +07:00
parent 2fa56446be
commit 9d384be175
2 changed files with 4 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
ShiftOS-TheRevival/TerminalApplications/Internal/Com_Manual.vb
View file

@ -152,7 +152,7 @@
Case "unzip"
If Strings.AvailableFeature(33) = "1" Then
TempUsage = TempUsage & "unzip [FILENAME.ZIP]"
Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_unzip & Environment.NewLine
'Console.TextBox1.Text = Console.TextBox1.Text & TempUsage & Environment.NewLine & Environment.NewLine & My.Resources.man_unzip & Environment.NewLine
NormalCommand()
End If
Case "ver"

7
ShiftOS-TheRevival/TerminalApplications/Internal/Com_Unzip.vb
View file

@ -8,10 +8,8 @@ Module Com_Unzip
UnzipString = RawCommand.Substring(6)
If UnzipString Like "-d '*.zip'" Then
Dim UnzipEXE() As String = UnzipString.Split("''")
NewLine(UnzipEXE(1))
If File.Exists(Console.CurrentDirectory & "\" & UnzipEXE(1)) = True Then
Dim UnzipDir As String = UnzipEXE(1).Replace(".zip", "")
NewLine(UnzipDir)
Dim UnzipRandomInt As Integer
Dim UnzipRandom As New Random
UnzipRandomInt = UnzipRandom.Next(1, 1000000)
@ -30,10 +28,8 @@ Module Com_Unzip
End If
If UnzipString Like "-f '*.zip'" Then
Dim UnzipEXE() As String = UnzipString.Split("''")
NewLine(UnzipEXE(1))
If File.Exists(Console.CurrentDirectory & "\" & UnzipEXE(1)) = True Then
Dim UnzipDir As String = UnzipEXE(1).Replace(".zip", "")
NewLine(UnzipDir)
Dim UnzipRandomInt As Integer
Dim UnzipRandom As New Random
UnzipRandomInt = UnzipRandom.Next(1, 1000000)
@ -80,6 +76,7 @@ Module Com_Unzip
NewLine("Copying " & ChildFile.Name & "...")
If Not File.Exists(Path.Combine(DestDir.FullName, ChildFile.Name)) Then
ChildFile.CopyTo(Path.Combine(DestDir.FullName, ChildFile.Name), False)
AddLine(" OK")
End If
End If
Next
@ -87,8 +84,10 @@ Module Com_Unzip
' copy all the sub-directories by recursively calling this same routine
Dim SubDir As DirectoryInfo
For Each SubDir In SourceDir.GetDirectories()
NewLine("Copying " & SubDir.Name & "...")
CopyDirectory(SubDir.FullName, Path.Combine(DestDir.FullName,
SubDir.Name), Overwrite)
AddLine(" OK")
Next
Else
Throw New DirectoryNotFoundException("Source directory does not exist: " + SourceDir.FullName)