From 8b5d4344f7e418369ebe10cb9eb2ac94314537b4 Mon Sep 17 00:00:00 2001 From: EverythingWindows Date: Sun, 6 Nov 2022 15:20:38 +0700 Subject: dir command done --- ShiftOS-TheRevival/MainForms/DirectoryManagements.vb | 11 +++++++++++ 1 file changed, 11 insertions(+) create mode 100644 ShiftOS-TheRevival/MainForms/DirectoryManagements.vb (limited to 'ShiftOS-TheRevival/MainForms/DirectoryManagements.vb') diff --git a/ShiftOS-TheRevival/MainForms/DirectoryManagements.vb b/ShiftOS-TheRevival/MainForms/DirectoryManagements.vb new file mode 100644 index 0000000..2aabee2 --- /dev/null +++ b/ShiftOS-TheRevival/MainForms/DirectoryManagements.vb @@ -0,0 +1,11 @@ +Module DirectoryManagements + 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 .." + 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 + Next + End Sub +End Module -- cgit v1.2.3