MS_29.11.2015
This commit is contained in:
@@ -39,23 +39,16 @@ Public Class ClassLogger
|
||||
|
||||
' legt den Speicherort fest
|
||||
Public Shared Sub SetSpeicherort(ByVal speicherort As String)
|
||||
Dim folderlog = My.Application.Info.DirectoryPath & "\Log"
|
||||
LOGPATH = folderlog
|
||||
Dim folderinfo As New IO.DirectoryInfo(folderlog)
|
||||
If folderinfo.Exists = False Then
|
||||
Try
|
||||
IO.Directory.CreateDirectory(folderlog)
|
||||
Catch ex As Exception
|
||||
'kein Schreibrecht also Temppath
|
||||
LOGPATH = Application.UserAppDataPath & "\Log"
|
||||
Dim finfo As New IO.DirectoryInfo(LOGPATH)
|
||||
If folderinfo.Exists = False Then
|
||||
IO.Directory.CreateDirectory(LOGPATH)
|
||||
End If
|
||||
End Try
|
||||
Dim f As String = Application.UserAppDataPath() & "\Log"
|
||||
|
||||
If speicherort = "" Then
|
||||
If IO.Directory.Exists(f) = False Then
|
||||
IO.Directory.CreateDirectory(f)
|
||||
End If
|
||||
ClassLogger.DateiSpeicherort = f
|
||||
Else
|
||||
ClassLogger.DateiSpeicherort = speicherort
|
||||
End If
|
||||
ClassLogger.DateiSpeicherort = LOGPATH
|
||||
End Sub
|
||||
|
||||
' legt das Prefix für den Dateinamen fest
|
||||
|
||||
Reference in New Issue
Block a user