diff options
Diffstat (limited to 'ShiftOS-TheRevival/TerminalApplications/Internal/Com_Cd.vb')
| -rw-r--r-- | ShiftOS-TheRevival/TerminalApplications/Internal/Com_Cd.vb | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/ShiftOS-TheRevival/TerminalApplications/Internal/Com_Cd.vb b/ShiftOS-TheRevival/TerminalApplications/Internal/Com_Cd.vb new file mode 100644 index 0000000..479d050 --- /dev/null +++ b/ShiftOS-TheRevival/TerminalApplications/Internal/Com_Cd.vb @@ -0,0 +1,19 @@ +Module Com_Cd + Public Sub NavigateDir(TheDirectory As String) + If TheDirectory = ".." Then + If Console.CurrentDirectory = Strings.OnceInfo(1) Then + NewLine("!\") + Else + Console.CurrentDirectory = IO.Directory.GetParent(Console.CurrentDirectory).ToString + End If + Else + If IO.Directory.Exists(Console.CurrentDirectory + "\" + TheDirectory) Then + Console.CurrentDirectory = Console.CurrentDirectory & "\" & TheDirectory + ElseIf IO.Directory.Exists(TheDirectory) Then + Console.CurrentDirectory = TheDirectory + Else + NewLine("The directory is not exist!") + End If + End If + End Sub +End Module |