1 Frage zu Aufnahmedatum

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.