iTextSharp-Anhänge ermitteln in VB.Net?

Um in VB.NET mit iTextSharp ein Attachment (Anhang) aus einem PDF-Dokument zu ermitteln, kannst du den folgenden Code verwenden. Dieser Code zeigt, wie du die Anhänge eines PDF-Dokuments auflisten kannst:

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

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

For Each attachment In attachments
Console.WriteLine(attachment)
Next
End Sub

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

Using reader As New PdfReader(pdfPath)
Dim files As PdfDictionary = reader.GetPageN(1).GetAsDict(PdfName.ANNOTS)

If files IsNot Nothing Then
For Each file As PdfName In files.Keys
Dim fileSpec As PdfDictionary = files.GetAsDict(file)
If fileSpec IsNot Nothing AndAlso fileSpec.Contains(PdfName.F) Then
Dim fileName As String = fileSpec.GetAsString(PdfName.F).ToString()
attachments.Add(fileName)
End If
Next
End If
End Using

Return attachments
End Function
End Module
```

Stelle sicher, dass du die iTextSharp-Bibliothek in deinem Projekt referenzierst. Dieser Code listet die Dateinamen der Anhänge auf, die im PDF-Dokument enthalten sind. Achte darauf, den Pfad zu deinem PDF-Dokument entsprechend anzupassen.