diff options
| author | EverythingWindows <[email protected]> | 2022-11-06 21:19:35 +0700 |
|---|---|---|
| committer | EverythingWindows <[email protected]> | 2022-11-06 21:19:35 +0700 |
| commit | e17103c363ce30c2baa6f3795177a4eeae1e535a (patch) | |
| tree | f8ef1a89f33909b27b6ba35828618b9656969772 /ShiftOS-TheRevival/MainForms/FileManagement.vb | |
| parent | 1ca1bed37df7422ab7049f44bf864494747abd51 (diff) | |
| download | shiftos-therevival-old-e17103c363ce30c2baa6f3795177a4eeae1e535a.tar.gz shiftos-therevival-old-e17103c363ce30c2baa6f3795177a4eeae1e535a.tar.bz2 shiftos-therevival-old-e17103c363ce30c2baa6f3795177a4eeae1e535a.zip | |
dir fixing and stuff
Diffstat (limited to 'ShiftOS-TheRevival/MainForms/FileManagement.vb')
| -rw-r--r-- | ShiftOS-TheRevival/MainForms/FileManagement.vb | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/ShiftOS-TheRevival/MainForms/FileManagement.vb b/ShiftOS-TheRevival/MainForms/FileManagement.vb new file mode 100644 index 0000000..b943fba --- /dev/null +++ b/ShiftOS-TheRevival/MainForms/FileManagement.vb @@ -0,0 +1,10 @@ +Imports System.IO + +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 + End If + End Sub +End Module |