diff options
Diffstat (limited to 'ShiftOS-TheRevival/MainForms/DirectoryManagements.vb')
| -rw-r--r-- | ShiftOS-TheRevival/MainForms/DirectoryManagements.vb | 76 |
1 files changed, 73 insertions, 3 deletions
diff --git a/ShiftOS-TheRevival/MainForms/DirectoryManagements.vb b/ShiftOS-TheRevival/MainForms/DirectoryManagements.vb index 2aabee2..ff8a3b1 100644 --- a/ShiftOS-TheRevival/MainForms/DirectoryManagements.vb +++ b/ShiftOS-TheRevival/MainForms/DirectoryManagements.vb @@ -1,11 +1,81 @@ Module DirectoryManagements + Dim spaces As String 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 .." + 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 + Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.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 + Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & spaces & filsize & " KB " & filinf.Name + Case 2 + Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & spaces & filsize & " MB " & filinf.Name + Case 3 + Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & spaces & filsize & " GB " & filinf.Name + End Select + Next + End Sub + + Public Sub NavigateDir(TheDirectory As String) + If TheDirectory = ".." Then + If Terminal.CurrentDirectory = Strings.OnceInfo(1) Then + Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "!\" + Else + Terminal.CurrentDirectory = IO.Directory.GetParent(Terminal.CurrentDirectory).ToString + End If + Else + If IO.Directory.Exists(Terminal.CurrentDirectory + "\" + TheDirectory) Then + Terminal.CurrentDirectory = Terminal.CurrentDirectory & "\" & TheDirectory + ElseIf IO.Directory.Exists(TheDirectory) Then + Terminal.CurrentDirectory = TheDirectory + Else + Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "The directory is not exist!" + End If + End If + End Sub + + Public Sub CreateDir(TheDirectory As String) + If IO.Directory.Exists(Terminal.CurrentDirectory + "\" + TheDirectory) Then + Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "Directory is already exists!" + Else + IO.Directory.CreateDirectory(Terminal.CurrentDirectory + "\" + TheDirectory) + End If + End Sub + + Public Sub RemoveDir(TheDirectory As String) + If IO.Directory.Exists(Terminal.CurrentDirectory + "\" + TheDirectory) Then + Try + IO.Directory.Delete(Terminal.CurrentDirectory + "\" + TheDirectory) + Catch ex As Exception + Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & ex.Message + End Try + Else + Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & "The directory is not exists!" + End If End Sub End Module |