iView home page
iView Multimedia Forum Index

FAQ FAQ     SearchSearch     MemberlistMemberlist     UsergroupsUsergroups    RegisterRegister  
ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Copy annotations from orginal to smaller image

 
This forum is locked: you cannot post, reply to, or edit topics.   This topic is locked: you cannot edit posts or make replies.    iView Multimedia Forum Index -> VB Script
View previous topic :: View next topic  

Is this script useful?
Yes
77%
 77%  [ 7 ]
No
11%
 11%  [ 1 ]
Don't know how to use it
11%
 11%  [ 1 ]
Total Votes : 9

Author Message
weston



Joined: 28 Jul 2005
Posts: 24
Location: Utah, USA

PostPosted: Wed Aug 03, 2005 11:45 am    Post subject: Copy annotations from orginal to smaller image Reply with quote

Here is a script I wrote for a personal need of copying the annotations from an original file to a small image I make for my web gallery (Coppermine gallery) I make 800x600 images and so effectively I have duplicated of which I wish to syncronize the annotations. I select the original files that have the updated annotations and this copies everything except Categories (that could be included by removing the ' in front of it) to the matching filename_small that I have made.

I hope it is useful for someone else.

Code:
Option Explicit

Const kMsgBoxTitle = "iView MediaPro"
Const find = "."
Const repl = "_small."
Main()

Sub Main()
        Dim app, Cat, mediaItem, Lname, i

        Set app = CreateObject("iView.Application")

        ' get the active catalog
        'If (app.Catalogs.Count = 0) Then
        '    MsgBox"Please launch Iview MediaPro.", vbCritical, kMsgBoxTitle
        'Else
        Set Cat = app.ActiveCatalog
        If (Cat.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
        Else
            'keywordsCvs = MsgBox "This script will write the large file's annotations to the small.", vbOKCancel, kMsgBoxTitle
            'If (keywordsCvs = "") Then
            '  Exit Sub
            'End If

            For Each mediaItem In Cat.Selection
                Lname = Replace(lcase(mediaItem.Name),find,repl)
                If Lname = lcase(mediaItem.Name) Then
                    MsgBox "You must select a large file.", vbOK
                    'ElseIf Cat.MediaItems Then
                    '    MsgBox "no such small file"
                Else
                    For i = 1 To Cat.MediaItems.Count
                        If lcase(Cat.MediaItems.Item(i).Name) = Lname Then
                            'MsgBox("Found small " & Lname)
                            With Cat.MediaItems.Item(i).Annotations
                                .AnnotationWriter = mediaItem.Annotations.AnnotationWriter
                                .Author = mediaItem.Annotations.Author
                                .AuthorTitle = mediaItem.Annotations.AuthorTitle
                                .Caption = mediaItem.Annotations.Caption
                                '.Categories = mediaItem.Annotations.Categories
                                .City = mediaItem.Annotations.City
                                .Copyright = mediaItem.Annotations.Copyright
                                .Country = mediaItem.Annotations.Country
                                .Credit = mediaItem.Annotations.Credit
                                .Event = mediaItem.Annotations.Event
                                If .Event = "" Then
                                Else
                                    .EventDate = mediaItem.Annotations.EventDate
                                End If
                                .Genre = mediaItem.Annotations.Genre
                                .Instructions = mediaItem.Annotations.Instructions
                                .Keywords = mediaItem.Annotations.Keywords
                                .Location = mediaItem.Annotations.Location
                                .People = mediaItem.Annotations.People
                                .Product = mediaItem.Annotations.Product
                                .Source = mediaItem.Annotations.Source
                                .State = mediaItem.Annotations.State
                                .Status = mediaItem.Annotations.Status
                                .Title = mediaItem.Annotations.Title
                                .Transmission = mediaItem.Annotations.Transmission
                            End With

                            Exit For
                        Else
                        End If
                    Next
                End If
            Next
            MsgBox "Done"
        End If
        'End If
    End Sub
Back to top
View user's profile Send private message Send e-mail
roberte



Joined: 18 Jun 2004
Posts: 2147
Location: Sydney, Australia

PostPosted: Fri Oct 14, 2005 9:04 am    Post subject: Copy Annotations between files Reply with quote

Hi,

Here's a modification Weston helped me with to sync metadata between two file types with the same name but different extension.
Code:
Option Explicit

Const kMsgBoxTitle = "iView MediaPro"
Const find = ".nef"
Const repl = ".jpg"
Main()

Sub Main()
        Dim app, Cat, mediaItem, Lname, i

        Set app = CreateObject("iView.Application")

        ' get the active catalog
        'If (app.Catalogs.Count = 0) Then
        '    MsgBox"Please launch Iview MediaPro.", vbCritical, kMsgBoxTitle
        'Else
        Set Cat = app.ActiveCatalog
        If (Cat.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
        Else
            'keywordsCvs = MsgBox "This script will write the large file's annotations to the small.", vbOKCancel, kMsgBoxTitle
            'If (keywordsCvs = "") Then
            '  Exit Sub
            'End If

            For Each mediaItem In Cat.Selection
                Lname = Replace(lcase(mediaItem.Name),find,repl)
                If Lname = lcase(mediaItem.Name) Then
                    MsgBox "You must select a large file.", vbOK
                    'ElseIf Cat.MediaItems Then
                    '    MsgBox "no such small file"
                Else
                    For i = 1 To Cat.MediaItems.Count
                        If lcase(Cat.MediaItems.Item(i).Name) = Lname Then
                            'MsgBox("Found small " & Lname)
                            With Cat.MediaItems.Item(i).Annotations
                                .AnnotationWriter = mediaItem.Annotations.AnnotationWriter
                                .Author = mediaItem.Annotations.Author
                                .AuthorTitle = mediaItem.Annotations.AuthorTitle
                                .Caption = mediaItem.Annotations.Caption
                                .Categories = mediaItem.Annotations.Categories
                                .City = mediaItem.Annotations.City
                                .Copyright = mediaItem.Annotations.Copyright
                                .Country = mediaItem.Annotations.Country
                                .Credit = mediaItem.Annotations.Credit
                                .Event = mediaItem.Annotations.Event
                                If .Event = "" Then
                                Else
                                    .EventDate = mediaItem.Annotations.EventDate
                                End If
                                .Genre = mediaItem.Annotations.Genre
                                .Instructions = mediaItem.Annotations.Instructions
                                .Keywords = mediaItem.Annotations.Keywords
                                .Location = mediaItem.Annotations.Location
                                .People = mediaItem.Annotations.People
                                .Product = mediaItem.Annotations.Product
                                .Source = mediaItem.Annotations.Source
                                .State = mediaItem.Annotations.State
                                .Status = mediaItem.Annotations.Status
                                .Title = mediaItem.Annotations.Title
                                .Transmission = mediaItem.Annotations.Transmission
                            End With

                            Exit For
                        Else
                        End If
                    Next
                End If
            Next
            MsgBox "Done"
        End If
        'End If
    End Sub

This one's set up to copy metadata from NEF files to JPEGs. To use it for other file formats simply change the third line to the file format to copy from:

Const find = ".nef"

...and change the fourth line to the file format to copy to:

Const repl = ".jpg"

Test Test Test - especially if you're going to sync the metadata back to RAW formats !!!
_________________
-- Robert
Expression Media 2 / Windows 8 / Mac OS X 10.10
Back to top
View user's profile Send private message Visit poster's website
roof6061



Joined: 28 Nov 2005
Posts: 5

PostPosted: Mon Nov 28, 2005 2:43 am    Post subject: You sure Reply with quote

roberte wrote:
Hi,


Are you sure about that because i dont think so.
_________________
Secure Gambling slot-machines online casino ok
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Hannibal



Joined: 01 Oct 2005
Posts: 29
Location: New York

PostPosted: Wed Nov 30, 2005 3:42 am    Post subject: Thank You Reply with quote

Roberte and Weston,
These look like they would be very useful.
I will try them soon.
Thank You,
Carl
Back to top
View user's profile Send private message
drmrbrewer



Joined: 24 Sep 2005
Posts: 510
Location: UK

PostPosted: Sun Dec 11, 2005 5:05 pm    Post subject: Reply with quote

Thanks, guys. Looks useful. Just what I needed. Or... nearly. I'm right in thinking this doesn't copy across the Catalog Sets to which the large item has been applied? I might do a bit of tinkering, if I'm allowed ;)

Mike
Back to top
View user's profile Send private message
niklos



Joined: 03 Apr 2006
Posts: 3

PostPosted: Mon Apr 03, 2006 8:21 am    Post subject: How to use Reply with quote

Hello,
This scripts sound great, how to use it to copy iptc between files in two folder tree?

For exemple nef/2006/photo1.nef to jpg/2006/photo1.jpg.

Regards,
Niklos
Back to top
View user's profile Send private message
roberte



Joined: 18 Jun 2004
Posts: 2147
Location: Sydney, Australia

PostPosted: Mon Apr 03, 2006 10:11 pm    Post subject: Reply with quote

Hi Niklos,

how to use it to copy iptc between files in two folder tree?

First select the images in the folder you want to copy the annotations from, then click+select the folder that has the items you want to paste the annotations to:

1. Open Catalog folders panel
2. Click the folder to copy annotations from (makes the dot green)
3. Right click that folder name and choose Select Media Items
4. Control+click the folder to paste annotations to
5. Run script

N.B. The folders do not need to be in the same directory or even on the same disk.

-- Robert.
Back to top
View user's profile Send private message Visit poster's website
johnbeardy



Joined: 22 Nov 2004
Posts: 1137
Location: Dulwich, South ("Sarf") London

PostPosted: Fri Apr 21, 2006 1:28 pm    Post subject: Reply with quote

Wanting to add the custom fields and label, I ended up rewriting it to run faster:

Code:

'========================================================================================
'by John Beardsworth 21/4/06
'version 1.2 1/5/06
'Loops through selected media items
'looks for files with one extension, finds files with same name but other extension
'and copies the metadata from the other
'========================================================================================

Const kMsgBoxTitle = "Files with identical names"
Const ivTargetDefault= "NEF"
Const ivFromDefault = "DNG"
Const pmtFrom = "What extension contains the source metadata?"
Const pmtTarget = "What is the extension of the files you want to update?"
Const pmtSuffix =  "Don't include the dot - ie write NEF not .NEF"

ivFrom = InputBox(pmtFrom & vbCrLf & vbCrLf & pmtSuffix, kMsgBoxTitle, ivFromDefault)
If ivFrom <> "" Then
ivTarget = InputBox(pmtTarget & vbCrLf & vbCrLf & pmtSuffix, kMsgBoxTitle, ivTargetDefault)
end if

if ivFrom ="" or ivTarget ="" then
else
Main()
end if


Sub Main()

        Set ivApp = CreateObject("iView.Application")

        ' get the active catalog
        If (ivApp.Catalogs.Count = 0) Then
            MsgBox "Please launch Iview MediaPro.", vbCritical, kMsgBoxTitle
        Exit Sub
        Else
        Set ivCat = ivApp.ActiveCatalog
        End If
       
        'check we've selected at least one
        ivCount = ivCat.Selection.Count
        If (ivCount <= 1) Then
            MsgBox "You need to select at least two media item in the active catalog in order to use this script.", vbCritical, kMsgBoxTitle
            Exit Sub
        Else
            'build an array to hold the filenames
            Dim ivItems()
            ReDim ivItems(ivCount)
            For i = 1 To ivCount
                ivItems(i) = ivCat.Selection(i).Name
            Next
        End If
       
       
        For Each ivItemTarget In ivCat.Selection
            'Debug.Print ivItemTarget.Name & " " & LCase(ivTarget) & " " & LCase(Right(ivItemTarget.Name, 3))
       
            If LCase(Right(ivItemTarget.Name, 3)) = LCase(ivTarget) Then
                i = ArrayItem(ivItems, ivItemTarget.Name)
                If i = False Then
                    LogTxt = LogTxt & ivItemTarget.Name & vbCrLf
        Else
                Set ivItemFrom = ivCat.MediaItems(i)
                With ivItemTarget.Annotations
                    .AnnotationWriter = ivItemFrom.Annotations.AnnotationWriter
                    .Author = ivItemFrom.Annotations.Author
                    .AuthorTitle = ivItemFrom.Annotations.AuthorTitle
                    .Caption = ivItemFrom.Annotations.Caption
                    .Categories = ivItemFrom.Annotations.Categories
                    .City = ivItemFrom.Annotations.City
                    .Copyright = ivItemFrom.Annotations.Copyright
                    .Country = ivItemFrom.Annotations.Country
                    .Credit = ivItemFrom.Annotations.Credit
                    .Event = ivItemFrom.Annotations.Event
                    If .Event = "" Then .EventDate = ivItemFrom.Annotations.EventDate
                    .Genre = ivItemFrom.Annotations.Genre
                    .Instructions = ivItemFrom.Annotations.Instructions
                    .Keywords = ivItemFrom.Annotations.Keywords
                    .Location = ivItemFrom.Annotations.Location
                    .People = ivItemFrom.Annotations.People
                    .Product = ivItemFrom.Annotations.Product
                    .Source = ivItemFrom.Annotations.Source
                    .State = ivItemFrom.Annotations.State
                    .Status = ivItemFrom.Annotations.Status
                    .Title = ivItemFrom.Annotations.Title
                    .Transmission = ivItemFrom.Annotations.Transmission
                End With
                'label
                ivItemTarget.LabelIndex = ivItemFrom.LabelIndex
                On Error Resume Next
                With ivItemTarget
                .CustomFields(1).Value = ivItemFrom.CustomFields(1).Value
                .CustomFields(2).Value = ivItemFrom.CustomFields(2).Value
                .CustomFields(3).Value = ivItemFrom.CustomFields(3).Value
                .CustomFields(4).Value = ivItemFrom.CustomFields(4).Value
                .CustomFields(5).Value = ivItemFrom.CustomFields(5).Value
                .CustomFields(6).Value = ivItemFrom.CustomFields(6).Value
                .CustomFields(7).Value = ivItemFrom.CustomFields(7).Value
                .CustomFields(8).Value = ivItemFrom.CustomFields(8).Value
                .CustomFields(9).Value = ivItemFrom.CustomFields(9).Value
                .CustomFields(10).Value = ivItemFrom.CustomFields(10).Value
                .CustomFields(11).Value = ivItemFrom.CustomFields(11).Value
                .CustomFields(12).Value = ivItemFrom.CustomFields(12).Value
                .CustomFields(13).Value = ivItemFrom.CustomFields(13).Value
                .CustomFields(14).Value = ivItemFrom.CustomFields(14).Value
                .CustomFields(15).Value = ivItemFrom.CustomFields(15).Value
                .CustomFields(16).Value = ivItemFrom.CustomFields(16).Value
                End With
                End If
                On Error GoTo 0
            End If
        Next
       
        If LogTxt = "" Then
           MsgBox "Done", vbOKOnly, kMsgBoxTitle
        Else
            MsgBox "Problems with these items. Were both files selected?" & vbCrLf & LogTxt, vbOKOnly + vbQuestion, kMsgBoxTitle
        End If
       
       
    End Sub

Function ArrayItem(ArrayItems, ivFile)

ivFindFile = LCase(Replace(ivFile, ivTarget, ivFrom, vbTextCompare))
For i = 1 To UBound(ArrayItems)
    If LCase(ArrayItems(i)) = ivFindFile Then
        ArrayItem = i
        Exit Function
    End If
Next
ArrayItem = False

End Function


Last edited by johnbeardy on Mon May 01, 2006 1:27 pm; edited 1 time in total
Back to top
View user's profile Send private message Visit poster's website
Caygill



Joined: 09 Nov 2005
Posts: 15

PostPosted: Mon May 01, 2006 1:12 pm    Post subject: Reply with quote

This is a very handy script, unfortunately VERY, very slow at times. 100 files can take hours in a big catalog. My needs are only to copy keywords from jpg to dng, so I guess I should look to cut out some of the lines.
Back to top
View user's profile Send private message
johnbeardy



Joined: 22 Nov 2004
Posts: 1137
Location: Dulwich, South ("Sarf") London

PostPosted: Mon May 01, 2006 1:29 pm    Post subject: Reply with quote

I doubt it'll save much time. The main issue is having to keep looping through files to detect one that's identical to the current one. I've updated my code so it works case insensitively.

John
Back to top
View user's profile Send private message Visit poster's website
niklos



Joined: 03 Apr 2006
Posts: 3

PostPosted: Sat May 06, 2006 7:15 am    Post subject: Reply with quote

Thank you very much.

roberte wrote:
Hi Niklos,

how to use it to copy iptc between files in two folder tree?

First select the images in the folder you want to copy the annotations from, then click+select the folder that has the items you want to paste the annotations to:

1. Open Catalog folders panel
2. Click the folder to copy annotations from (makes the dot green)
3. Right click that folder name and choose Select Media Items
4. Control+click the folder to paste annotations to
5. Run script

N.B. The folders do not need to be in the same directory or even on the same disk.

-- Robert.
Back to top
View user's profile Send private message
niklos



Joined: 03 Apr 2006
Posts: 3

PostPosted: Sat May 06, 2006 4:17 pm    Post subject: Reply with quote

Excellent but the label do not work, some clues ?
johnbeardy wrote:
Wanting to add the custom fields and label, I ended up rewriting it to run faster:




Back to top
View user's profile Send private message
johnbeardy



Joined: 22 Nov 2004
Posts: 1137
Location: Dulwich, South ("Sarf") London

PostPosted: Sat May 06, 2006 4:24 pm    Post subject: Reply with quote

I'm not sure, but there may be a case sensitivity issue. Try using lower or upper case, whatever matches your pictures. Let me know if it works then.

John
Back to top
View user's profile Send private message Visit poster's website
ojaste



Joined: 23 Dec 2005
Posts: 60
Location: Toronto, Ontario

PostPosted: Wed May 31, 2006 11:30 am    Post subject: Reply with quote

John,

I've been experimenting with this script and noticed some wierd.

I have a DNG file with a (C) (ALT-169) character in the copyright field.

When run the script to transfer to NEF file, the NEF copyright field has a "A" (with an accent) followed by the exact string in the DNG copyright field.

However, when I take a different NEF file with (C) (Alt-169) string it transfers to the DNG without the "A" (with an accent).

Any suggestions?

Something else, you are only 22 transferred annotations in the script. Was there a reason for that?
_________________
\marty
www.perspectva.com
Back to top
View user's profile Send private message Visit poster's website
johnbeardy



Joined: 22 Nov 2004
Posts: 1137
Location: Dulwich, South ("Sarf") London

PostPosted: Thu Jun 01, 2006 12:01 am    Post subject: Reply with quote

Marty

Yes, I do know about that copyright issue and am trying to solve it. It's something connected to iView storing the data as Unicode.

I thought I'd picked up all the annotations that are available in the scripting engine. Am I missing some?

John
_________________
PC and Mac too
iView scripts & utilities
Back to top
View user's profile Send private message Visit poster's website
ojaste



Joined: 23 Dec 2005
Posts: 60
Location: Toronto, Ontario

PostPosted: Thu Jun 01, 2006 1:53 am    Post subject: Reply with quote

John,

I think the missing ones are;

- IPTC URL
- Ratings
- Rights Usage Terms
- Scenes
- Subject Codes
- Intellectual Genre
- Author details (ie: address, etc)

Are these accessible via scripting?
_________________
\marty
www.perspectva.com
Back to top
View user's profile Send private message Visit poster's website
roberte



Joined: 18 Jun 2004
Posts: 2147
Location: Sydney, Australia

PostPosted: Thu Jun 01, 2006 4:48 am    Post subject: Reply with quote

Hi,

I thought I'd picked up all the annotations that are available in the scripting engine. Am I missing some?

As much as I appreciate the v3.1 update, iView have yet to update the object model or documentation for MediaPro since v2.5.
_________________
-- Robert
Expression Media 2 / Windows 8 / Mac OS X 10.10
Back to top
View user's profile Send private message Visit poster's website
crashbowman



Joined: 24 Feb 2006
Posts: 5

PostPosted: Sat Jun 03, 2006 5:42 pm    Post subject: Reply with quote

I think from reading above and my trial with this script it does not work with ratings. Is it possible to get it to work with ratings and better yet work for JUST ratings. Usually one of the only things I need to transfer over are ratings.

Thanks,
John
Back to top
View user's profile Send private message
johnbeardy



Joined: 22 Nov 2004
Posts: 1137
Location: Dulwich, South ("Sarf") London

PostPosted: Sat Jun 03, 2006 5:45 pm    Post subject: Reply with quote

It doesn't work with Ratings because they're not yet in the VB object model. Put in a feature request.

John
_________________
PC and Mac too
iView scripts & utilities
Back to top
View user's profile Send private message Visit poster's website
nickjohnson



Joined: 04 Jun 2006
Posts: 8

PostPosted: Sun Jun 04, 2006 4:38 pm    Post subject: Reply with quote

I used this to move my annotations over from about 6000 pngs to jpegs. When I have it about 3k to do at once, it added the same (wrong) data for every image. I did it by 8 rolls at a time and it worked fine. Much much appreciated. Now I need to fix my mistake of puting film type in the source field. I've got another thread open on that.
Back to top
View user's profile Send private message
ojaste



Joined: 23 Dec 2005
Posts: 60
Location: Toronto, Ontario

PostPosted: Mon Jun 05, 2006 5:24 am    Post subject: Reply with quote

I put in a feature request to had access to all the catalogue annotations or for them to provide a function to transferr all annotations from one file time to another.
_________________
\marty
www.perspectva.com
Back to top
View user's profile Send private message Visit poster's website
icerbofh



Joined: 11 Oct 2005
Posts: 4

PostPosted: Tue Jun 13, 2006 2:06 am    Post subject: Reply with quote

John, when I have had to iterate multiple times in the past and using Perl, it is possible to stat() the file and create an array with that information. That way, you have to just read once and just do a test for subsequent iterations. I'm fairly certain you could do something similar in VB (I havent gotten around to picking that up yet :), all it would do is just consume a tad more memory.

Cheers.
Back to top
View user's profile Send private message
johnbeardy



Joined: 22 Nov 2004
Posts: 1137
Location: Dulwich, South ("Sarf") London

PostPosted: Tue Jun 13, 2006 5:37 am    Post subject: Reply with quote

Sure you can do this and in some other code I do so. It doesn't save much time here.
_________________
PC and Mac too
iView scripts & utilities
Back to top
View user's profile Send private message Visit poster's website
hjii



Joined: 29 Nov 2006
Posts: 2

PostPosted: Wed Nov 29, 2006 11:20 pm    Post subject: VBScript runtime error Reply with quote

Hi John,

I'm trying to copy annotations from DNG files to JPG and RAW files by using your script "Sync_files_with_same_names" i found on your web site (http://www.beardsworth.co.uk/iview.php).

I select both of the files, then feed in the source and destination file extensions, but then I get the following error message:

"Error Number: 0 (800a01b6)
Error String: "Object doesn't support this property or method: 'ivItemFrom.Annotations.CopyrightNotice'" Line:72"

I have IView MediaPro version 3.0.0

Do you have any idea what would help?

Thanks!
Back to top
View user's profile Send private message
johnbeardy



Joined: 22 Nov 2004
Posts: 1137
Location: Dulwich, South ("Sarf") London

PostPosted: Thu Nov 30, 2006 12:55 am    Post subject: Reply with quote

Update iView to the latest version - that CopyrightNotice property is more recent than 3.0.0

John
_________________
PC and Mac too
iView scripts & utilities
Back to top
View user's profile Send private message Visit poster's website
hjii



Joined: 29 Nov 2006
Posts: 2

PostPosted: Thu Nov 30, 2006 7:23 am    Post subject: Reply with quote

Great, it works now - thanks John!
Back to top
View user's profile Send private message
jgatscher



Joined: 29 Aug 2006
Posts: 8
Location: Nashville, TN

PostPosted: Sun Dec 03, 2006 9:29 pm    Post subject: Reply with quote

Hi John,

Im trying something very similar, but when I used your script it didnt seem to work. Here is what Im doing:

Original photos added to catalog are JPGs. My JPGs get annotated as appropriate within iView. I next open select JPGs using Nikons Capture NX and modify and edit the JPGs as appropriate using Capture NX. I save the JPGs as a Capture NX NEF file format. So I have a new file with the exact same name as the JPG but with a file extension of NEF. I add the new NEF photo to the catalog and want to transfer the annotations from the JPG to the new NEF. Will your script accomplish this?

Jeff
Back to top
View user's profile Send private message
johnbeardy



Joined: 22 Nov 2004
Posts: 1137
Location: Dulwich, South ("Sarf") London

PostPosted: Sun Dec 03, 2006 9:37 pm    Post subject: Reply with quote

Should do. What's going wrong?

John
_________________
PC and Mac too
iView scripts & utilities
Back to top
View user's profile Send private message Visit poster's website
jgatscher



Joined: 29 Aug 2006
Posts: 8
Location: Nashville, TN

PostPosted: Sun Dec 03, 2006 9:52 pm    Post subject: Reply with quote

Well when I select the the two photos (JPG & nef) and then run the script, everything seems to work and it gives me the "done window". But when I check to see what the NEF file has for annotations, nothing transfers and the only new annotation is the Copyright Notice and it says "Copyright, HP Corp, 2003." Which is strange since the original camera was Olympus and the JPG annotation for copyright notice didn't say that?

I should note that the version of your script I'm using is version 1.4 from your web site.

Any help is appreciated.

Jeff
Back to top
View user's profile Send private message
Display posts from previous:   
This forum is locked: you cannot post, reply to, or edit topics.   This topic is locked: you cannot edit posts or make replies.    iView Multimedia Forum Index -> VB Script All times are GMT
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum



  © iView Multimedia Ltd. | All Rights Reserved Privacy Policy | Copyright | Site Map