From 0a2b03e31283da77d6feaa2fd9d65349a9e82602 Mon Sep 17 00:00:00 2001 From: EverythingWindows Date: Mon, 7 Nov 2022 19:22:19 +0700 Subject: Refined ShiftOS Menu to be more finished and added del command --- ShiftOS-TheRevival/MainForms/FileManagement.vb | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'ShiftOS-TheRevival/MainForms/FileManagement.vb') diff --git a/ShiftOS-TheRevival/MainForms/FileManagement.vb b/ShiftOS-TheRevival/MainForms/FileManagement.vb index fcff2d6..32d7822 100644 --- a/ShiftOS-TheRevival/MainForms/FileManagement.vb +++ b/ShiftOS-TheRevival/MainForms/FileManagement.vb @@ -8,6 +8,12 @@ Module FileManagement End If End Sub + Public Sub DeleteFile(filename As String) + If File.Exists(Terminal.CurrentDirectory & "\" & filename) = True Then + File.Delete(Terminal.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) -- cgit v1.2.3