diff options
Diffstat (limited to 'ShiftOS-TheRevival/MainForms/DirectoryManagements.vb')
| -rw-r--r-- | ShiftOS-TheRevival/MainForms/DirectoryManagements.vb | 25 |
1 files changed, 13 insertions, 12 deletions
diff --git a/ShiftOS-TheRevival/MainForms/DirectoryManagements.vb b/ShiftOS-TheRevival/MainForms/DirectoryManagements.vb index 1ab684d..7647e1e 100644 --- a/ShiftOS-TheRevival/MainForms/DirectoryManagements.vb +++ b/ShiftOS-TheRevival/MainForms/DirectoryManagements.vb @@ -2,12 +2,13 @@ Dim spaces As String Public Sub TerminalDirectories(TheDirectory As String) Console.Pseudodir = TheDirectory.Replace(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\ShiftFS", "!") - Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Contents of " & Console.Pseudodir & Environment.NewLine - Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "[DIR] 0 KB ." - Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "[DIR] 0 KB .." + 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) - Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "[DIR] 0 KB " & dirinf.Name + NewLine("[DIR] 0 KB " & dirinf.Name) Next For Each file As String In IO.Directory.GetFiles(TheDirectory) Dim filinf As New IO.FileInfo(file) @@ -33,11 +34,11 @@ End Select Select Case thesize Case 1 - Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & spaces & filsize & " KB " & filinf.Name + NewLine(spaces & filsize & " KB " & filinf.Name) Case 2 - Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & spaces & filsize & " MB " & filinf.Name + NewLine(spaces & filsize & " MB " & filinf.Name) Case 3 - Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & spaces & filsize & " GB " & filinf.Name + NewLine(spaces & filsize & " GB " & filinf.Name) End Select Next End Sub @@ -45,7 +46,7 @@ Public Sub NavigateDir(TheDirectory As String) If TheDirectory = ".." Then If Console.CurrentDirectory = Strings.OnceInfo(1) Then - Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "!\" + NewLine("!\") Else Console.CurrentDirectory = IO.Directory.GetParent(Console.CurrentDirectory).ToString End If @@ -55,14 +56,14 @@ ElseIf IO.Directory.Exists(TheDirectory) Then Console.CurrentDirectory = TheDirectory Else - Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "The directory is not exist!" + 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 - Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Directory is already exists!" + NewLine("Directory is already exists!") Else IO.Directory.CreateDirectory(Console.CurrentDirectory + "\" + TheDirectory) End If @@ -73,10 +74,10 @@ Try IO.Directory.Delete(Console.CurrentDirectory + "\" + TheDirectory) Catch ex As Exception - Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ex.Message + NewLine(ex.Message) End Try Else - Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "The directory is not exists!" + NewLine("The directory is not exists!") End If End Sub End Module |