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

Um Anhänge in einem PDF-Dokument mit VB.NET zu ermitteln, kannst du die Bibliothek iTextSharp verwenden. Hier ist ein einfaches Beispiel, wie du dies umsetzen kannst:

1. Installiere die iText-Bibliothek über NuGet in deinem Projekt.

2. Verwende den folgenden Code, um die Anhänge zu extrahieren:

```vb.net
Imports System.IO
Imports iText.Kernel.Pdf
Imports iText.Kernel.Pdf.Action
Imports iText.Kernel.Pdf.Annot

Module Module1
Sub Main()
Dim pdfPath As String = "Pfad\zu\deinem\Dokument.pdf"
Dim outputPath As String = "Pfad\zu\deinem\Ausgabeordner"

Using pdfReader As New PdfReader(pdfPath)
Using pdfDocument As New PdfDocument(pdfReader)
Dim numberOfPages As Integer = pdfDocument.GetNumberOfPages()

For i As Integer = 1 To numberOfPages
Dim page As PdfPage = pdfDocument.GetPage(i)
Dim annotations As IList(Of PdfAnnotation) = page.GetAnnotations()

For Each annotation As PdfAnnotation In annotations
If annotation.GetSubtype() = PdfName.FileAttachment Then
Dim fileSpec As PdfFileSpec = annotation.GetFile()
Dim fileName As String = fileSpec.GetFileName()
Dim fileData As Byte() = fileSpec.GetBytes()

' Speichere die Datei
File.WriteAllBytes(Path.Combine(outputPath, fileName), fileData)
Console.WriteLine("Anhang gefunden: " & fileName)
End If
Next
Next
End Using
End Using
End Sub
End Module
```

In diesem Beispiel wird das PDF-Dokument geöffnet, und jede Seite wird auf Anmerkungen überprüft. Wenn eine Anmerkung vom Typ "Dateianhang" gefunden wird, wird der Anhang extrahiert und gespeichert. Achte darauf, die Pfade entsprechend anzupassen.

Stelle sicher, dass du die iTextSharp-Bibliothek korrekt referenzierst und die erforderlichen Namespaces importierst.