diff options
| author | EverythingWindows <[email protected]> | 2022-11-06 15:20:38 +0700 |
|---|---|---|
| committer | EverythingWindows <[email protected]> | 2022-11-06 15:20:38 +0700 |
| commit | 8b5d4344f7e418369ebe10cb9eb2ac94314537b4 (patch) | |
| tree | d76cf36af89cb7a5b29c1fca5b0e3697d909d142 /ShiftOS-TheRevival/MainForms/DirectoryManagements.vb | |
| parent | 8e4b29c5a54d679099d8eb487c76062c4960c069 (diff) | |
| download | shiftos-therevival-old-8b5d4344f7e418369ebe10cb9eb2ac94314537b4.tar.gz shiftos-therevival-old-8b5d4344f7e418369ebe10cb9eb2ac94314537b4.tar.bz2 shiftos-therevival-old-8b5d4344f7e418369ebe10cb9eb2ac94314537b4.zip | |
dir command done
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 |