TextPad is finally working correctly

1 files changed, 11 insertions, 12 deletions

diff --git a/ShiftOS-TheRevival/MainForms/FileManagement.vb b/ShiftOS-TheRevival/MainForms/FileManagement.vb
index b4f6757..fcff2d6 100644
--- a/ShiftOS-TheRevival/MainForms/FileManagement.vb
+++ b/ShiftOS-TheRevival/MainForms/FileManagement.vb
@@ -3,18 +3,17 @@
 Module FileManagement
     Public Sub CatFile(filename As String)
         If File.Exists(Terminal.CurrentDirectory & "\" & filename) = True Then
-            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
+            Dim ContentsFinal As String = File.ReadAllText(Terminal.CurrentDirectory & "\" & filename)
+            Terminal.TextBox1.Text = Terminal.TextBox1.Text & Environment.NewLine & ContentsFinal
         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(Terminal.CurrentDirectory & "\" & filename, Terminal.TextBox1.Text)
+    End Sub
 End Module