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 End Sub
Private Sub FreeFile() Private Sub FreeFile()
Try Try
If Len(_FilePath) Then If Len(_FilePath) OrElse _Fileinfo Is Nothing Then
Exit Sub Exit Sub
End If End If
Dim oExtension As String = _Fileinfo.Extension.ToUpper Dim oExtension As String = _Fileinfo.Extension.ToUpper