Har nu hittat ett program för batchkomprimering som kan hjälpa mig att göra mitt berg med bilder mer lätthanterligt. Nackdelen med det är att delar av metadatan i bilderna försvinner. Att alla kamerainställningar försvinner gråter jag inte direkt över, men vad jag skulle vilja ha kvar är i allafall kameramodellen och fotodatumet.

Att lista befintlig information i oredigerade bilder lät sig lätt göras med metoden:
Set objShellApp = CreateObject("Shell.Application")
Set objFolder = objShellApp.Namespace(strFolder)
Set objFolderItem = objFolder.ParseName(strFile)
... följt av...
Cells(2,iKolumn).Value = objFolder.getdetailsof(objFolderItem, 12) '(12 = fotodatum)
Cells(3,iKolumn).Value = objFolder.getdetailsof(objFolderItem, 30) '(30 = kameramodell)
(... osv med utvalda egenskaper)

I arbetsbladet blir det en tabell med filnamnen som kolumnrubriker med deras metadata under (eller tvärtom)... och så långt har jag kommit. Som avslutande steg vill jag, efter bildredigeringen, sen kunna använda den där tabellen till att skriva tillbaka den förlorade metadatan i dom nya filerna. Men hur gör man det?

Tack på förhand,
/Nick