diff options
| author | EverythingWindows <[email protected]> | 2022-11-14 13:50:43 +0700 |
|---|---|---|
| committer | EverythingWindows <[email protected]> | 2022-11-14 13:50:43 +0700 |
| commit | bd4c45f316d11e124fe5d21d9c5f66e21149fc5d (patch) | |
| tree | c9b1a4ad85f7d8c6b3cbe05f7769cb04f907dfa3 /ShiftOS-TheRevival/Functions/InGame/FileManagement.vb | |
| parent | b37a6e60c9ffa266fc1fc9afc13cada7704100b0 (diff) | |
| download | shiftos-therevival-old-bd4c45f316d11e124fe5d21d9c5f66e21149fc5d.tar.gz shiftos-therevival-old-bd4c45f316d11e124fe5d21d9c5f66e21149fc5d.tar.bz2 shiftos-therevival-old-bd4c45f316d11e124fe5d21d9c5f66e21149fc5d.zip | |
More organized
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 |