diff options
Diffstat (limited to 'ShiftOS-TheRevival/Functions/InGame/FileManagement.vb')
| -rw-r--r-- | ShiftOS-TheRevival/Functions/InGame/FileManagement.vb | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/ShiftOS-TheRevival/Functions/InGame/FileManagement.vb b/ShiftOS-TheRevival/Functions/InGame/FileManagement.vb new file mode 100644 index 0000000..b84a2a0 --- /dev/null +++ b/ShiftOS-TheRevival/Functions/InGame/FileManagement.vb @@ -0,0 +1,25 @@ +Imports System.IO + +Module FileManagement + Public Sub CatFile(filename As String) + If File.Exists(Console.CurrentDirectory & "\" & filename) = True Then + Dim ContentsFinal As String = File.ReadAllText(Console.CurrentDirectory & "\" & filename) + NewLine(ContentsFinal) + End If + End Sub + + Public Sub DeleteFile(filename As String) + If File.Exists(Console.CurrentDirectory & "\" & filename) = True Then + File.Delete(Console.CurrentDirectory & "\" & filename) + End If + End Sub + + Public Sub SaveFile(filename As String) + 'If File.Exists(Terminal.CurrentDirectory & "\" & filename) = False Then + ' File.WriteAllText(Terminal.CurrentDirectory & "\" & filename, Terminal.TextBox1.Text) + 'Else + ' File.WriteAllText(Terminal.CurrentDirectory & "\" & filename, Terminal.TextBox1.Text) + 'End If + File.WriteAllText(Console.CurrentDirectory & "\" & filename, Console.TextBox1.Text) + End Sub +End Module |