diff options
| author | EverythingWindows <[email protected]> | 2022-11-07 19:22:19 +0700 |
|---|---|---|
| committer | EverythingWindows <[email protected]> | 2022-11-07 19:22:19 +0700 |
| commit | 0a2b03e31283da77d6feaa2fd9d65349a9e82602 (patch) | |
| tree | 7c41ad58c6c5ee967dec4ac988e85d23b3259455 /ShiftOS-TheRevival/MainForms/FileManagement.vb | |
| parent | 8e9314fd63a107720e0473412b6328d4675fb025 (diff) | |
| download | shiftos-therevival-old-0a2b03e31283da77d6feaa2fd9d65349a9e82602.tar.gz shiftos-therevival-old-0a2b03e31283da77d6feaa2fd9d65349a9e82602.tar.bz2 shiftos-therevival-old-0a2b03e31283da77d6feaa2fd9d65349a9e82602.zip | |
Refined ShiftOS Menu to be more finished and added del command
Diffstat (limited to 'ShiftOS-TheRevival/MainForms/FileManagement.vb')
| -rw-r--r-- | ShiftOS-TheRevival/MainForms/FileManagement.vb | 6 |
1 files changed, 6 insertions, 0 deletions
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) |