Anhangsimport

2024-10-21 11:46:53 +02:00
parent 90fad2d745
commit e35a81c271
1 changed files with 6 additions and 5 deletions
--- a/Aviso/Anhänge/frmSendungAnhangImport.vb
+++ b/Aviso/Anhänge/frmSendungAnhangImport.vb
@@ -143,11 +143,12 @@ Public Class frmSendungAnhangImport
                    WebBrowser.Visible = False
                    PdfViewer.Visible = (loc <> "")
-
+                    If doc <> "" Then
-                    Dim data = File.ReadAllBytes(loc)
+                        Dim data = File.ReadAllBytes(loc)
-                    Dim pdfStream = New MemoryStream(data)
+                        Dim pdfStream = New MemoryStream(data)
-                    PdfViewer.LoadFromStream(pdfStream)
+                        PdfViewer.LoadFromStream(pdfStream)
-                    pdfStream.Close()
+                        pdfStream.Close()
                    End If
                    'NOT WORKING