diff --git a/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb b/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb
index a4bd32ef..87c794af 100644
--- a/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb
+++ b/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb
@@ -547,11 +547,11 @@ Public Class cProgramFunctions
         graph = Graphics.FromImage(screenshot)
         graph.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy)
         ' PictureBox1.Image = screenshot
-        If Not My.Computer.FileSystem.DirectoryExists(My.Computer.FileSystem.SpecialDirectories.Desktop & "\Screenshots_" & My.Application.Info.AssemblyName & "\") Then
-            My.Computer.FileSystem.CreateDirectory(My.Computer.FileSystem.SpecialDirectories.Desktop & "\Screenshots_" & My.Application.Info.AssemblyName & "\")
+        If Not My.Computer.FileSystem.DirectoryExists(My.Computer.FileSystem.SpecialDirectories.Temp & "\Screenshots_" & My.Application.Info.AssemblyName & "\") Then
+            My.Computer.FileSystem.CreateDirectory(My.Computer.FileSystem.SpecialDirectories.Temp & "\Screenshots_" & My.Application.Info.AssemblyName & "\")
         End If
         Dim cnt As Integer = 1
-        Dim strname As String = My.Computer.FileSystem.SpecialDirectories.Desktop & "\Screenshots_" & My.Application.Info.AssemblyName & "\" & form.Name & "_" & Now.ToString("ddMMyyyy_HHmm_")
+        Dim strname As String = My.Computer.FileSystem.SpecialDirectories.Temp & "\Screenshots_" & My.Application.Info.AssemblyName & "\" & form.Name & "_" & Now.ToString("ddMMyyyy_HHmm_")
         While System.IO.File.Exists(strname & cnt & ".bmp") : cnt += 1 : End While
         screenshot.Save(strname & cnt & ".bmp")
         Return strname & cnt & ".bmp"
diff --git a/VERAG_PROG_ALLGEMEIN/frmErrorMeldung.vb b/VERAG_PROG_ALLGEMEIN/frmErrorMeldung.vb
index e6442e73..548f01c1 100644
--- a/VERAG_PROG_ALLGEMEIN/frmErrorMeldung.vb
+++ b/VERAG_PROG_ALLGEMEIN/frmErrorMeldung.vb
@@ -83,12 +83,12 @@ Public Class frmErrorMeldung
         If cbxEnviromentVariables.Checked Then
 
 
-            If Not My.Computer.FileSystem.DirectoryExists(My.Computer.FileSystem.SpecialDirectories.Desktop & "\Screenshots_" & My.Application.Info.AssemblyName & "\") Then
-                My.Computer.FileSystem.CreateDirectory(My.Computer.FileSystem.SpecialDirectories.Desktop & "\Screenshots_" & My.Application.Info.AssemblyName & "\")
+            If Not My.Computer.FileSystem.DirectoryExists(My.Computer.FileSystem.SpecialDirectories.Temp & "\Screenshots_" & My.Application.Info.AssemblyName & "\") Then
+                My.Computer.FileSystem.CreateDirectory(My.Computer.FileSystem.SpecialDirectories.Temp & "\Screenshots_" & My.Application.Info.AssemblyName & "\")
             End If
 
             Dim filename = "SystemEnviroment_" & Now.ToFileTime & "_.txt"
-            Dim strFile As String = My.Computer.FileSystem.SpecialDirectories.Desktop & "\Screenshots_" & My.Application.Info.AssemblyName & "\" & filename
+            Dim strFile As String = My.Computer.FileSystem.SpecialDirectories.Temp & "\Screenshots_" & My.Application.Info.AssemblyName & "\" & filename
             Dim fileExists As Boolean = File.Exists(strFile)
             Using sw As New StreamWriter(File.Open(strFile, FileMode.CreateNew))