diff options
Diffstat (limited to 'ShiftOS-TheRevival/MainForms/DirectoryManagements.vb')
| -rw-r--r-- | ShiftOS-TheRevival/MainForms/DirectoryManagements.vb | 11 |
1 files changed, 11 insertions, 0 deletions
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 |