ShiftOS-TheRevival-Old/ShiftOS-TheRevival/MainForms/DirectoryManagements.vb

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