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

Question

Accepted Answer

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.

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

Verwandte Fragen

Was ist JImage in Java?