From 78525e6c04152957c5862ace155b90a9ac060002 Mon Sep 17 00:00:00 2001 From: EverythingWindows Date: Mon, 7 Nov 2022 07:13:50 +0700 Subject: 0.2.4 started --- ShiftOS-TheRevival/MainForms/FileManagement.vb | 14 ++++++++++++-- 1 file changed, 12 insertions(+), 2 deletions(-) (limited to 'ShiftOS-TheRevival/MainForms/FileManagement.vb') diff --git a/ShiftOS-TheRevival/MainForms/FileManagement.vb b/ShiftOS-TheRevival/MainForms/FileManagement.vb index b943fba..b4f6757 100644 --- a/ShiftOS-TheRevival/MainForms/FileManagement.vb +++ b/ShiftOS-TheRevival/MainForms/FileManagement.vb @@ -3,8 +3,18 @@ Module FileManagement Public Sub CatFile(filename As String) If File.Exists(Terminal.CurrentDirectory & "\" & filename) = True Then - Dim Contents As String = File.ReadAllText(Terminal.CurrentDirectory & "\" & filename) - Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & Contents + Try + Dim Contents As Byte() = File.ReadAllBytes(Terminal.CurrentDirectory & "\" & filename) + Dim ContentsFinal As String = Convert.ToString(Contents) + Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & ContentsFinal + Catch ex As Exception + Try + Dim ContentsFinal As String() = File.ReadAllLines(Terminal.CurrentDirectory & "\" & filename) + Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & ContentsFinal + Catch ex As Exception + + End Try + End Try End If End Sub End Module -- cgit v1.2.3