mirror of
https://github.com/EverythingWindows/ShiftOS-TheRevival-Old.git
synced 2025-01-23 02:12:14 +00:00
11 lines
704 B
VB.net
11 lines
704 B
VB.net
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
|