diff options
| author | EverythingWindows <[email protected]> | 2022-11-06 16:22:35 +0700 |
|---|---|---|
| committer | EverythingWindows <[email protected]> | 2022-11-06 16:22:35 +0700 |
| commit | 2a3e5ec4d537770bb3d310bfb9bda12c0615aedd (patch) | |
| tree | d27c0cfd0ff32ab404d954db8c3a1632c89ba068 /ShiftOS-TheRevival/MainForms/Terminal.vb | |
| parent | 8b5d4344f7e418369ebe10cb9eb2ac94314537b4 (diff) | |
| download | shiftos-therevival-old-2a3e5ec4d537770bb3d310bfb9bda12c0615aedd.tar.gz shiftos-therevival-old-2a3e5ec4d537770bb3d310bfb9bda12c0615aedd.tar.bz2 shiftos-therevival-old-2a3e5ec4d537770bb3d310bfb9bda12c0615aedd.zip | |
directory majority finished
Diffstat (limited to 'ShiftOS-TheRevival/MainForms/Terminal.vb')
| -rw-r--r-- | ShiftOS-TheRevival/MainForms/Terminal.vb | 19 |
1 files changed, 18 insertions, 1 deletions
diff --git a/ShiftOS-TheRevival/MainForms/Terminal.vb b/ShiftOS-TheRevival/MainForms/Terminal.vb index 37e83df..8370f9a 100644 --- a/ShiftOS-TheRevival/MainForms/Terminal.vb +++ b/ShiftOS-TheRevival/MainForms/Terminal.vb @@ -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" |