From bd4c45f316d11e124fe5d21d9c5f66e21149fc5d Mon Sep 17 00:00:00 2001 From: EverythingWindows Date: Mon, 14 Nov 2022 13:50:43 +0700 Subject: More organized --- ShiftOS-TheRevival/MainForms/FileManagement.vb | 25 ------------------------- 1 file changed, 25 deletions(-) delete mode 100644 ShiftOS-TheRevival/MainForms/FileManagement.vb (limited to 'ShiftOS-TheRevival/MainForms/FileManagement.vb') diff --git a/ShiftOS-TheRevival/MainForms/FileManagement.vb b/ShiftOS-TheRevival/MainForms/FileManagement.vb deleted file mode 100644 index b84a2a0..0000000 --- a/ShiftOS-TheRevival/MainForms/FileManagement.vb +++ /dev/null @@ -1,25 +0,0 @@ -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 -- cgit v1.2.3