Wie kann ich im VB das Aufnahmedatum eines Fotos oder MP4 anzeigen lassen?

Um das Aufnahmedatum eines Fotos oder MP4-Videos in Visual Basic (VB) anzuzeigen, kannst du die `System.Drawing`- und `System.IO`-Namespaces verwenden, um die Metadaten der Datei auszulesen. Hier ist ein einfaches Beispiel, wie du das Aufnahmedatum eines Bildes (z.B. JPEG) und eines Videos (z.B. MP4) abrufen kannst:

### Für ein Bild (JPEG)

```vb
Imports System.Drawing
Imports System.Drawing.Imaging

Public Function GetImageDateTaken(filePath As String) As DateTime?
Try
Using img As Image = Image.FromFile(filePath)
If img.PropertyIdList.Contains(36867) Then ' 36867 ist die Property ID für das Aufnahmedatum
Dim propItem As PropertyItem = img.GetPropertyItem(36867)
Dim dateTaken As String = System.Text.Encoding.ASCII.GetString(propItem.Value)
dateTaken = dateTaken.Substring(0, 19) ' Format: "YYYY:MM:DD HH:MM:SS"
Return DateTime.ParseExact(dateTaken, "yyyy:MM:dd HH:mm:ss", Nothing)
End If
End Using
Catch ex As Exception
' Fehlerbehandlung
End Try
Return Nothing
End Function
```

### Für ein Video (MP4)

Für MP4-Videos kannst du die `TagLib#`-Bibliothek verwenden, um die Metadaten auszulesen. Du musst die Bibliothek zuerst installieren (z.B. über NuGet).

```vb
Imports TagLib

Public Function GetVideoDateTaken(filePath As String) As DateTime?
Try
Dim file As TagLib.File = TagLib.File.Create(filePath)
Return file.Tag.CreationDate
Catch ex As Exception
' Fehlerbehandlung
End Try
Return Nothing
End Function
```

### Verwendung

Du kannst die oben genannten Funktionen wie folgt verwenden:

```vb
Dim imagePath As String = "Pfad\zu\deinem\Bild.jpg"
Dim videoPath As String = "Pfad\zu\deinem\Video.mp4"

Dim imageDate As DateTime? = GetImageDateTaken(imagePath)
Dim videoDate As DateTime? = GetVideoDateTaken(videoPath)

If imageDate.HasValue Then
Console.WriteLine("Aufnahmedatum des Bildes: " & imageDate.Value.ToString())
Else
Console.WriteLine("Aufnahmedatum des Bildes konnte nicht gefunden werden.")
End If

If videoDate.HasValue Then
Console.WriteLine("Aufnahmedatum des Videos: " & videoDate.Value.ToString())
Else
Console.WriteLine("Aufnahmedatum des Videos konnte nicht gefunden werden.")
End If
```

Stelle sicher, dass du die richtigen Pfade zu deinen Dateien angibst.