Universal Accounting Manager - PublicDataBase.vb

PublicDataBase.vb

1. Public Class PublicDataBase
2.      Public Function DataBaseReader(ByVal Name As String, ByVal ReadEncoding As System.Text.Encoding) As String
3.         On Error Resume Next
4.         My.Computer.FileSystem.ReadAllText(Name, ReadEncoding)
5.     End Function
6.     Public Function DataBaseWriter(ByVal Name As String, ByVal Value As String, ByVal WriteBoolean As Boolean, ByVal WriteEncoding As System.Text.Encoding) As String
7.         My.Computer.FileSystem.WriteAllText(Name, Value, WriteBoolean, WriteEncoding)
8.     End Function
9. End Class