mirror of
https://github.com/EverythingWindows/ShiftOS-TheRevival-Old.git
synced 2025-01-23 02:12:14 +00:00
10 lines
395 B
VB.net
10 lines
395 B
VB.net
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
|