From 350ee792740c739fd5da846fa6eec3d5ef1130e4 Mon Sep 17 00:00:00 2001
From: Jonathan Jenne <j.jenne@digitaldata.works>
Date: Thu, 17 Jun 2021 12:58:04 +0200
Subject: [PATCH] DocumentViewer: Trigger GC on done

---
 Controls.DocumentViewer/DocumentViewer.vb | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/Controls.DocumentViewer/DocumentViewer.vb b/Controls.DocumentViewer/DocumentViewer.vb
index e1917602..e6a81366 100644
--- a/Controls.DocumentViewer/DocumentViewer.vb
+++ b/Controls.DocumentViewer/DocumentViewer.vb
@@ -69,8 +69,14 @@ Public Class DocumentViewer
     ''' Terminate Viewer, freeing up resources and deleting temp files
     ''' </summary>
     Public Sub Done()
+        _logger.Debug("Done: Deleting Temp Files")
         DeleteTempFiles()
+
+        _logger.Debug("Done: Closing Documents")
         FreeFile()
+
+        _logger.Debug("Done: Triggering GC")
+        GC.Collect()
     End Sub
 
     ''' <summary>
@@ -150,7 +156,7 @@ Public Class DocumentViewer
 
     Private Sub FreeFile()
         Try
-            If Len(_FilePath) OrElse _Fileinfo Is Nothing Then
+            If Len(_FilePath) = 0 OrElse _Fileinfo Is Nothing Then
                 Exit Sub
             End If
             Dim oExtension As String = _Fileinfo.Extension.ToUpper