' Die einzeln EXIF Daten Lesen
        Dim AufnahmeDatum As DateTime
 
        For Each objFolderItem In objFolder.Items
            ' zb. nur Excel-Dateien
            If LCase(objFolderItem.Path) Like "*.jpg" Then
                If objFolderItem.Name = InfoDateiname Then
                    For x = 0 To 37
                        Me.Dateiinfos.Items.Add(arrHeaders(x) & ": " & _
                          objFolder.GetDetailsOf(objFolderItem, x))
 
                        If arrHeaders(x) = "Aufnahmedatum" Then
 
                            TBoxAufnahmedatum.Text = CStr( _
                              objFolder.GetDetailsOf(objFolderItem, x) & ":00")
                            AufnahmeDatum = CDate(TBoxAufnahmedatum.Text)   _
                            '"13.05.2013 15:05:00")   'Format( _
                            objFolder.GetDetailsOf(objFolderItem, x), _
                            "dd.MM.yyyy HH:mm:ss")
 
                            System.IO.File.SetCreationTime(Ordnerpfad & _
                              InfoDateiname, AufnahmeDatum)
                        End If
 
                    Next
 
                    Exit For
                End If
            End If
        Next