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