Wie ermittelt man Anhänge in einem PDF-Dokument mit iTextSharp in VB.NET?

Um Anhänge in einem PDF-Dokument mit iTextSharp in VB.NET zu ermitteln, kannst du den folgenden Ansatz verwenden. iTextSharp ermöglicht es, PDF-Dokumente zu manipulieren und Informationen über Anhänge zu extrahieren. Hier ist ein einfaches Beispiel, wie du dies tun kannst:

```vb.net
Imports System.IO
Imports iTextSharp.text.pdf

Module Module1
Sub Main()
Dim pdfPath As String = "Pfad\zu\deinem\Dokument.pdf"
Dim attachments As List(Of String) = GetPdfAttachments(pdfPath)

If attachments.Count > 0 Then
Console.WriteLine("Gefundene Anhänge:")
For Each attachment In attachments
Console.WriteLine(attachment)
Next
Else
Console.WriteLine("Keine Anhänge gefunden.")
End If
End Sub

Function GetPdfAttachments(pdfPath As String) As List(Of String)
Dim attachmentList As New List(Of String)()

Using reader As New PdfReader(pdfPath)
Dim filespecs As IDictionary(Of String, PdfDictionary) = reader.GetFileAttachmentNames()

If filespecs IsNot Nothing Then
For Each entry In filespecs
Dim fileSpec As PdfDictionary = entry.Value
Dim fileName As String = fileSpec.GetAsString(PdfName.F).ToString()
attachmentList.Add(fileName)
Next
End If
End Using

Return attachmentList
End Function
End Module
```

In diesem Beispiel wird ein PDF-Dokument geöffnet, und die Funktion `GetPdfAttachments` durchsucht das Dokument nach Anhängen. Die gefundenen Dateinamen werden in einer Liste gespeichert und anschließend ausgegeben. Stelle sicher, dass du die iTextSharp-Bibliothek in deinem Projekt referenzierst, um diesen Code auszuführen.