From f9c724e547a659671174d264ba74603ac8227b6e Mon Sep 17 00:00:00 2001
From: EverythingWindows <windowseverything61@gmail.com>
Date: Thu, 17 Nov 2022 11:11:51 +0700
Subject: moving from DirectoryManagement to each modules for DE's other module
 for said action.

---
 .../TerminalApplications/Internal/Com_Dir.vb       | 46 ++++++++++++++++++++++
 1 file changed, 46 insertions(+)
 create mode 100644 ShiftOS-TheRevival/TerminalApplications/Internal/Com_Dir.vb

(limited to 'ShiftOS-TheRevival/TerminalApplications/Internal/Com_Dir.vb')

diff --git a/ShiftOS-TheRevival/TerminalApplications/Internal/Com_Dir.vb b/ShiftOS-TheRevival/TerminalApplications/Internal/Com_Dir.vb
new file mode 100644
index 0000000..d697c32
--- /dev/null
+++ b/ShiftOS-TheRevival/TerminalApplications/Internal/Com_Dir.vb
@@ -0,0 +1,46 @@
+Module Com_Dir
+    Dim spaces As String
+
+    Public Sub TerminalDirectories(TheDirectory As String)
+        Console.Pseudodir = TheDirectory.Replace(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\ShiftFS", "!")
+        NewLine("Contents of " & Console.Pseudodir)
+        NewLine(Nothing)
+        NewLine("[DIR]     0 KB .")
+        NewLine("[DIR]     0 KB ..")
+        For Each Dir As String In IO.Directory.GetDirectories(TheDirectory)
+            Dim dirinf As New IO.DirectoryInfo(Dir)
+            NewLine("[DIR]     0 KB " & dirinf.Name)
+        Next
+        For Each file As String In IO.Directory.GetFiles(TheDirectory)
+            Dim filinf As New IO.FileInfo(file)
+            Dim filsize As Long = filinf.Length / 1024
+            Dim thesize As Integer = 1
+            Do
+                If filsize >= 1024 Then
+                    filsize = filsize / 1024
+                    thesize = thesize + 1
+                Else
+                    Exit Do
+                End If
+            Loop
+            Select Case filsize
+                Case 0 To 9
+                    spaces = "          "
+                Case 10 To 99
+                    spaces = "         "
+                Case 100 To 999
+                    spaces = "        "
+                Case 1000 To 1023
+                    spaces = "       "
+            End Select
+            Select Case thesize
+                Case 1
+                    NewLine(spaces & filsize & " KB " & filinf.Name)
+                Case 2
+                    NewLine(spaces & filsize & " MB " & filinf.Name)
+                Case 3
+                    NewLine(spaces & filsize & " GB " & filinf.Name)
+            End Select
+        Next
+    End Sub
+End Module
-- 
cgit v1.2.3