Anhänge öffnen

VERAGAddIn/frmAvisoFormularAnfügen.vb

@@ -1,5 +1,6 @@
 Imports System.Collections
 Imports System.Data
+Imports System.Diagnostics
 Imports System.Diagnostics.Tracing
 Imports System.Drawing
 Imports System.Net
@@ -406,11 +407,9 @@ Public Class frmAvisoFormularAnfuegen
                     Me.Size = New Size(frmDefaultSize.Width, frmDefaultSize.Height - addHeightfrm)
                     dgvAnhaenge.Size = dgvAnhaengeSize
             End Select
-
-
         End If
 
-            dgvAnhaenge.ClearSelection()
+        dgvAnhaenge.ClearSelection()
     End Sub
 
     Private Function checkMandatoryFields() As Boolean
@@ -469,4 +468,18 @@ Public Class frmAvisoFormularAnfuegen
         Next
     End Sub
 
+    Private Sub dgvAnhaenge_CellContentDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvAnhaenge.CellDoubleClick, dgvAnhaenge.CellContentDoubleClick
+        Try
+            If dgvAnhaenge.SelectedRows.Count > 0 Then
+                If dgvAnhaenge.SelectedRows(0).Cells(0).Value <> "" Then
+
+                    Dim strTmpPath As String = System.IO.Path.GetTempPath()
+                    Process.Start(strTmpPath & dgvAnhaenge.SelectedRows(0).Cells(0).Value)
+
+                End If
+            End If
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+    End Sub
 End Class