blob: 7647e1e8a6e7b22319bcd6b5a49077e0fdb96599 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
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
|
