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

directory majority finished

Browse source
This commit is contained in:
EverythingWindows 2022-11-06 16:22:35 +07:00
parent 8b5d4344f7
commit 2a3e5ec4d5
3 changed files with 92 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

76
ShiftOS-TheRevival/MainForms/DirectoryManagements.vb
View file

@ -1,11 +1,81 @@
Module DirectoryManagements
Dim spaces As String
Public Sub TerminalDirectories(TheDirectory As String)
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "Contents of " & Terminal.Pseudodir & Environment.NewLine
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "[DIR] 0 KB ."
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "[DIR] 0 KB .."
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "[DIR] 0 KB ."
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "[DIR] 0 KB .."
For Each Dir As String In IO.Directory.GetDirectories(TheDirectory)
Dim dirinf As New IO.DirectoryInfo(Dir)
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "[DIR] 0 KB " & dirinf.Name
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "[DIR] 0 KB " & dirinf.Name
Next
For Each file As String In IO.Directory.GetFiles(TheDirectory)
Dim filinf As New IO.FileInfo(file)
Dim filsize As Long = filinf.Length / 1024
Dim thesize As Integer = 1
Do
If filsize >= 1024 Then
filsize = filsize / 1024
thesize = thesize + 1
Else
Exit Do
End If
Loop
Select Case filsize
Case 0 To 9
spaces = " "
Case 10 To 99
spaces = " "
Case 100 To 999
spaces = " "
Case 1000 To 1023
spaces = " "
End Select
Select Case thesize
Case 1
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & spaces & filsize & " KB " & filinf.Name
Case 2
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & spaces & filsize & " MB " & filinf.Name
Case 3
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & spaces & filsize & " GB " & filinf.Name
End Select
Next
End Sub
Public Sub NavigateDir(TheDirectory As String)
If TheDirectory = ".." Then
If Terminal.CurrentDirectory = Strings.OnceInfo(1) Then
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "!\"
Else
Terminal.CurrentDirectory = IO.Directory.GetParent(Terminal.CurrentDirectory).ToString
End If
Else
If IO.Directory.Exists(Terminal.CurrentDirectory + "\" + TheDirectory) Then
Terminal.CurrentDirectory = Terminal.CurrentDirectory & "\" & TheDirectory
ElseIf IO.Directory.Exists(TheDirectory) Then
Terminal.CurrentDirectory = TheDirectory
Else
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "The directory is not exist!"
End If
End If
End Sub
Public Sub CreateDir(TheDirectory As String)
If IO.Directory.Exists(Terminal.CurrentDirectory + "\" + TheDirectory) Then
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "Directory is already exists!"
Else
IO.Directory.CreateDirectory(Terminal.CurrentDirectory + "\" + TheDirectory)
End If
End Sub
Public Sub RemoveDir(TheDirectory As String)
If IO.Directory.Exists(Terminal.CurrentDirectory + "\" + TheDirectory) Then
Try
IO.Directory.Delete(Terminal.CurrentDirectory + "\" + TheDirectory)
Catch ex As Exception
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & ex.Message
End Try
Else
Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "The directory is not exists!"
End If
End Sub
End Module

2
ShiftOS-TheRevival/MainForms/Strings.vb
View file

@ -28,7 +28,7 @@
'
'OnceInfo Strings:
'0 = IsRoot? (0.1) (default : No)
'1 = RootDirectory (0.2.3) (default : My.Computer.FileSystem.SpecialDirectories.Temp & "\ShiftOS\ShiftFS\")
'1 = RootDirectory (0.2.3) (default : Environment.SpecialDirectories.ApplicationData & "\ShiftOS\ShiftFS\")
'2 = Infobar Boolean (0.2.3) (default : True)
'3 = Color for Terminal (0.2.3) (default : 0F)
'4 = RootDirectoryString (0.2.3) (default : !)

19
ShiftOS-TheRevival/MainForms/Terminal.vb
View file

@ -22,7 +22,7 @@ Public Class Terminal
End Sub
Public Sub InitializeTerminal()
Strings.OnceInfo(1) = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\ShiftFS\"
Strings.OnceInfo(1) = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\ShiftFS"
Strings.OnceInfo(4) = "!"
If Strings.IsFree = True Then
Strings.ComputerInfo(0) = "shiftos"
@ -214,6 +214,8 @@ Public Class Terminal
TextBox1.Text = TextBox1.Text & Environment.NewLine
AdvancedCommand = False
BadCommand = False
Case "textpad"
Case "reboot"
TextBox1.Text = Nothing
AdvancedCommand = False
@ -300,6 +302,11 @@ Public Class Terminal
End Select
If AdvancedCommand = True Then
If command Like "cd *" Then
NavigateDir(command.Replace("cd ", ""))
AdvancedCommand = False
BadCommand = False
End If
If command Like "color *" Then
GetColor("terminal", command.Substring(6, 1), command.Substring(7, 1))
BadCommand = False
@ -408,6 +415,16 @@ Public Class Terminal
End Select
End If
End If
If command Like "mkdir *" Then
CreateDir(command.Replace("mkdir ", ""))
AdvancedCommand = False
BadCommand = False
End If
If command Like "rmdir *" Then
RemoveDir(command.Replace("rmdir ", ""))
AdvancedCommand = False
BadCommand = False
End If
If command Like "shiftorium *" Then
Dim prompt As String = command.Replace("shiftorium ", "")
TextBox1.Text = TextBox1.Text & Environment.NewLine & "Shiftorium ShiftOS Center"