190930

Pilz.Updating/General.vb

@@ -0,0 +1,21 @@
+Imports System.IO
+
+Public Module General
+
+    Public ReadOnly Property MyTempPath As String
+        Get
+            Static p As String = String.Empty
+
+            If String.IsNullOrEmpty(p) Then
+                p = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData), "Pilz.Updating")
+
+                If Not Directory.Exists(p) Then
+                    Directory.CreateDirectory(p)
+                End If
+            End If
+
+            Return p
+        End Get
+    End Property
+
+End Module