MS

EnvelopeGenerator.Service/EnvelopeGenerator.Service.vbproj

@@ -144,6 +144,7 @@
       <DesignTimeSharedInput>True</DesignTimeSharedInput>
     </Compile>
     <Compile Include="Scheduler.vb" />
+    <Compile Include="TempFiles.vb" />
   </ItemGroup>
   <ItemGroup>
     <EmbeddedResource Include="My Project\Resources.resx">

EnvelopeGenerator.Service/Service.vb

@@ -14,7 +14,7 @@ Public Class Service
     Private ConfigManager As ConfigManager(Of Config)
     Private Config As Config
     Private Database As MSSQLServer
-
+    Private TempFiles As TempFiles
     Private Scheduler As Scheduler
 
     Protected Overrides Async Sub OnStart(ByVal args() As String)
@@ -33,9 +33,10 @@ Public Class Service
             Logger.Info($"DEBUG = {LogConfig.Debug}")
 
             Logger.Info("Starting [{0}]", ServiceName)
+            TempFiles = New TempFiles(LogConfig)
+            TempFiles.Create()
 
             ' === Initialize Databases ===
-
             Logger.Info("Inititalize Databases")
 
             If Config.ConnectionString = String.Empty Then
@@ -72,6 +73,7 @@ Public Class Service
         Try
             Logger.Info("Stopping [{0}] !", ServiceName)
             Await Scheduler.Stop()
+            TempFiles.CleanUp()
             Logger.Info("Stopped [{0}] !", ServiceName)
         Catch ex As Exception
             Logger.Error(ex)

EnvelopeGenerator.Service/TempFiles.vb

@@ -0,0 +1,60 @@
+Imports System.IO
+Imports DigitalData.Modules.Base
+Imports DigitalData.Modules.Logging
+
+Public Class TempFiles
+    Inherits BaseClass
+
+    Public Property TempPath As String
+
+    Public Sub New(pLogConfig As LogConfig)
+        MyBase.New(pLogConfig)
+
+        Dim oTempDirectoryPath = Path.GetTempPath()
+        TempPath = Path.Combine(oTempDirectoryPath, "EnvelopeGenerator")
+    End Sub
+
+    Public Function Create() As Boolean
+        Try
+            If Directory.Exists(TempPath) = False Then
+                Directory.CreateDirectory(TempPath)
+            Else
+                CleanUpFiles()
+            End If
+            Return True
+
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return False
+        End Try
+
+    End Function
+
+    Private Function CleanUpFiles() As Boolean
+        Try
+            For Each fileItem As String In Directory.GetFiles(TempPath)
+                Logger.Debug("Deleting tempPath-file: {0} ...", fileItem)
+                File.Delete(fileItem)
+            Next
+
+            Return True
+
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return False
+        End Try
+    End Function
+
+    Public Function CleanUp() As Boolean
+        Try
+            Logger.Debug("Deleting tempPath-Data: {0} ...", TempPath)
+            Directory.Delete(TempPath, True)
+            Return True
+
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return False
+        End Try
+    End Function
+
+End Class