Joined: 09 Nov 2005
|Posted: Mon Sep 11, 2006 7:45 am Post subject: Modifying "IPTC Date from Capture Date" to include
|Can the shipped as default script "IPTC Date from Capture Date" be easily modified to include time?
In fact my whole need is to delete all EXIF except orientation and date/time. Then copy EXIF Description from IPTC Keywords. I'm now using several apps in several steps to get this done (Iview, Exifer, Metastripper and Exifer again..)
(Scenario: I want to upload my material to the web for the Gallery application that uses the EXIF description as the caption, date/time as date/time and orientation to decide orientation. But I dont want to give the world the information on my gear and especially not time/apperature/iso, etc).
Const kMsgBoxTitle = "iView MediaPro"
Dim app, mediaItems, mediaItem, strText
' display an about box
If (MsgBox("This script will copy EXIF Capture date to IPTC Date, for all selected items.", 65, kMsgBoxTitle) = vbOk) Then
Set app = CreateObject("iView.Application")
' get the active catalog
If (app.Catalogs.count = 0) Then
MsgBox "Please launch iView MediaPro.", vbCritical, kMsgBoxTitle
Elseif (app.ActiveCatalog.Selection.Count = 0) Then
MsgBox "You need to select at least one media item in the active catalog in order to use this script.", vbCritical, kMsgBoxTitle
For Each mediaItem In app.ActiveCatalog.Selection
If (Left(mediaItem.DeviceInfo.CaptureDate, 8) <> "12:00:00") Then
mediaItem.Annotations.DateCreated = mediaItem.DeviceInfo.CaptureDate