DocumentViewer: Fix freefile when loading file as stream

This commit is contained in:
Jonathan Jenne 2021-02-24 16:41:18 +01:00
parent 1277c393ba
commit 905333640b

View File

@ -127,7 +127,7 @@ Public Class DocumentViewer
End Sub
Private Sub FreeFile()
Try
If Len(_FilePath) Then
If Len(_FilePath) OrElse _Fileinfo Is Nothing Then
Exit Sub
End If
Dim oExtension As String = _Fileinfo.Extension.ToUpper