MS_29.11.2015

This commit is contained in:
SchreiberM
2015-11-30 09:32:30 +01:00
parent 7ee607f4e5
commit 2cd1dc3a94
11 changed files with 312 additions and 6077 deletions

View File

@@ -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