1 files changed, 83 insertions, 0 deletions
diff --git a/ShiftOS-TheRevival/Functions/InGame/DirectoryManagements.vb b/ShiftOS-TheRevival/Functions/InGame/DirectoryManagements.vb
new file mode 100644
index 0000000..7647e1e
--- /dev/null
+++ b/ShiftOS-TheRevival/Functions/InGame/DirectoryManagements.vb
@@ -0,0 +1,83 @@
+Module DirectoryManagements
+    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
+
+    Public Sub NavigateDir(TheDirectory As String)
+        If TheDirectory = ".." Then
+            If Console.CurrentDirectory = Strings.OnceInfo(1) Then
+                NewLine("!\")
+            Else
+                Console.CurrentDirectory = IO.Directory.GetParent(Console.CurrentDirectory).ToString
+            End If
+        Else
+            If IO.Directory.Exists(Console.CurrentDirectory + "\" + TheDirectory) Then
+                Console.CurrentDirectory = Console.CurrentDirectory & "\" & TheDirectory
+            ElseIf IO.Directory.Exists(TheDirectory) Then
+                Console.CurrentDirectory = TheDirectory
+            Else
+                NewLine("The directory is not exist!")
+            End If
+        End If
+    End Sub
+
+    Public Sub CreateDir(TheDirectory As String)
+        If IO.Directory.Exists(Console.CurrentDirectory + "\" + TheDirectory) Then
+            NewLine("Directory is already exists!")
+        Else
+            IO.Directory.CreateDirectory(Console.CurrentDirectory + "\" + TheDirectory)
+        End If
+    End Sub
+
+    Public Sub RemoveDir(TheDirectory As String)
+        If IO.Directory.Exists(Console.CurrentDirectory + "\" + TheDirectory) Then
+            Try
+                IO.Directory.Delete(Console.CurrentDirectory + "\" + TheDirectory)
+            Catch ex As Exception
+                NewLine(ex.Message)
+            End Try
+        Else
+            NewLine("The directory is not exists!")
+        End If
+    End Sub
+End Module