48 lines
607 B
VB.net
48 lines
607 B
VB.net
'
|
|
' libreria : VBlib
|
|
' file : Log.vb
|
|
'
|
|
' funzioni : gestione log file
|
|
'
|
|
' copyright 2008-2017 C.Viviani
|
|
'
|
|
Imports System.IO
|
|
Imports Microsoft.VisualBasic
|
|
|
|
Public Module Log
|
|
|
|
Const MAX_LOG_FILE As Long = 1000000
|
|
|
|
Dim fs As FileStream
|
|
Dim szInternalFilename As String
|
|
|
|
Public Sub init(ByVal szLogFileName As String)
|
|
|
|
|
|
|
|
End Sub
|
|
|
|
Sub finish()
|
|
|
|
End Sub
|
|
|
|
Sub write(ByRef sz_arg As String)
|
|
|
|
|
|
|
|
End Sub
|
|
|
|
Sub write_and_messagebox(ByRef sz_arg As String, n_error As Integer)
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub ll_write(ByRef sz_arg As String)
|
|
|
|
|
|
|
|
End Sub
|
|
|
|
End Module
|
|
|