diff --git a/Global_Indexer/ClassLogger.vb b/Global_Indexer/ClassLogger.vb
index 7a06ac7..cfe2772 100644
--- a/Global_Indexer/ClassLogger.vb
+++ b/Global_Indexer/ClassLogger.vb
@@ -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