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