Imports System
Imports System.IO
Namespace LoggerAplication
Class Logger
Public Shared Sub Write(ByVal nameFile As String, ByVal text As String)
Dim myFile As StreamWriter
myFile = File.AppendText(nameFile)
myFile.WriteLine(DateTime.Now & " - " & text)
myFile.Close()
End Sub
End Class
End Namespace
Namespace LoggerAplication
Class Program
Private Shared Sub Main()
Logger.Write("text.txt", "Hola")
End Sub
End Class
End Namespace