AppStd/FileFlow
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

logger pfad geändert

Browse Source
This commit is contained in:
JenneJ 2015-07-29 13:26:07 +02:00
parent a4414dd3ce
commit c2e4596f03
1 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
Global_Indexer/ClassLogger.vb
View File

@ -45,15 +45,26 @@ Public Class ClassLogger
' legt den Speicherort fest
Public Shared Sub SetSpeicherort(ByVal speicherort As String)
Dim f As New IO.DirectoryInfo(My.Application.Info.DirectoryPath & "\Log")
Dim f As New IO.DirectoryInfo(Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData), "Digital Data\Global Indexer\Log"))
If speicherort = "" Then
If f.Exists = False Then
IO.Directory.CreateDirectory(My.Application.Info.DirectoryPath & "\Log")
IO.Directory.CreateDirectory(f.ToString())
End If
ClassLogger.DateiSpeicherort = My.Application.Info.DirectoryPath & "\Log\"
ClassLogger.DateiSpeicherort = f.ToString()
Else
ClassLogger.DateiSpeicherort = speicherort
End If
'Dim f As New IO.DirectoryInfo(My.Application.Info.DirectoryPath & "\Log")
'If speicherort = "" Then
' If f.Exists = False Then
' IO.Directory.CreateDirectory(My.Application.Info.DirectoryPath & "\Log")
' End If
' ClassLogger.DateiSpeicherort = My.Application.Info.DirectoryPath & "\Log\"
'Else
' ClassLogger.DateiSpeicherort = speicherort
'End If
End Sub
' legt das Prefix für den Dateinamen fest