From 54355f9686a5a07f27de5cd3444b87509df2fd2f Mon Sep 17 00:00:00 2001 From: EverythingWindows Date: Sun, 13 Nov 2022 15:15:05 +0700 Subject: Changed from Environment.NewLine to dedicated NewLine module thoroughly, Fixing a bug on always asks for update, Slowly migrating from full Terminal-dependant to Console-based --- ShiftOS-TheRevival/MainForms/FileManagement.vb | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'ShiftOS-TheRevival/MainForms/FileManagement.vb') diff --git a/ShiftOS-TheRevival/MainForms/FileManagement.vb b/ShiftOS-TheRevival/MainForms/FileManagement.vb index 32d7822..76b0d59 100644 --- a/ShiftOS-TheRevival/MainForms/FileManagement.vb +++ b/ShiftOS-TheRevival/MainForms/FileManagement.vb @@ -2,15 +2,15 @@ Module FileManagement Public Sub CatFile(filename As String) - If File.Exists(Terminal.CurrentDirectory & "\" & filename) = True Then - Dim ContentsFinal As String = File.ReadAllText(Terminal.CurrentDirectory & "\" & filename) - Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & ContentsFinal + If File.Exists(Console.CurrentDirectory & "\" & filename) = True Then + Dim ContentsFinal As String = File.ReadAllText(Console.CurrentDirectory & "\" & filename) + Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & ContentsFinal End If End Sub Public Sub DeleteFile(filename As String) - If File.Exists(Terminal.CurrentDirectory & "\" & filename) = True Then - File.Delete(Terminal.CurrentDirectory & "\" & filename) + If File.Exists(Console.CurrentDirectory & "\" & filename) = True Then + File.Delete(Console.CurrentDirectory & "\" & filename) End If End Sub @@ -20,6 +20,6 @@ Module FileManagement 'Else ' File.WriteAllText(Terminal.CurrentDirectory & "\" & filename, Terminal.TextBox1.Text) 'End If - File.WriteAllText(Terminal.CurrentDirectory & "\" & filename, Terminal.TextBox1.Text) + File.WriteAllText(Console.CurrentDirectory & "\" & filename, Console.TextBox1.Text) End Sub End Module -- cgit v1.2.3