Public Class TextOut Private _FStream As FileStream Private _WriteText As StreamWriter Public Sub New() _FStream = New FileStream("log.txt", FileMode.Append, FileAccess.Write) _WriteText = New StreamWriter(_FStream, Encoding.GetEncoding("Shift_JIS")) End Sub Protected Overrides Sub Finalize() _WriteText.Flush() _WriteText.Close() _FStream.Flush() _FStream.Close() _WriteText = Nothing _FStream = Nothing MyBase.Finalize() End Sub End Class
