D
DD
Does anyone have a favourite program to store photographs and images
that makes searching and their retrieval easy?
DD
that makes searching and their retrieval easy?
DD
DD said:Does anyone have a favourite program to store photographs and images
that makes searching and their retrieval easy?
DD
DD said:Does anyone have a favourite program to store photographs and images
that makes searching and their retrieval easy?
DD
DD said:Does anyone have a favourite program to store photographs and images
that makes searching and their retrieval easy?
DD
Invader said:I'm using my own Babya bPicture application.
If you use myalbum, the script below will allocateI'm still pondering If I want to use key words. If so, I'd put
them in the IPTC tags of my pictures, so they can be used in
multiple programs. But with 5500+ photo's creating keywords is not
a task I look forewards to....
MightyKitten
Peter Gordon said:If you use myalbum, the script below will allocate
keywords to all selected files.
Option Explicit
'---------------------------------------------------------
' BatchKeywords.vbs
'
' The user can install new keywords in the album.
' Also, multiple keywords can be set on all selected
' thumbs.
'
' The user is prompted for new keywords and the keywords
' which are required to be set.
'
' This script is designed to be installed as a custom tool
' by use of Tools|Customize in MyAlbum
'
' Peter Gordon
' ---------------------------------------------------------
Dim objAlb, objPic, objKwd
Dim strStr, strStr1, strKwd
Dim arrKwds, intKwds, j
Dim i, intCount, intKwd, bAns
app.ClearTrace
set objAlb = app.GetCurrentAlbum()
strStr = "Available KeyWords are:" & vbCrLf
For i = 0 to objAlb.nbKeyword - 1
set objKwd = objAlb.GetKeyword(i)
strStr = strStr & i & ". " & objKwd.sName & vbCrLf
Next
strStr1 = strStr & "Do you wish to add a new keyword?"
bAns = MsgBox(strStr1, vbYesNo, "BatchKeyword")
If bAns = vbYes Then
strKwd = InputBox("Enter the Keyword", "BatchKeyWord")
objAlb.AddKeyword(strKwd)
strStr = Empty
strStr = "Available KeyWords are:" & vbCrLf
For i = 0 to objAlb.nbKeyword - 1
set objKwd = objAlb.GetKeyword(i)
strStr = strStr & i & ". " & objKwd.sName & vbCrLf
Next
End If
strStr = strStr & "Enter the keyword indices required "
strStr = strStr & "in a comma seperated list, eg 1,3,5"
strKwd = InputBox( strStr, "BatchKeyword")
If Len(strKwd) Then
arrKwds = Split(strKwd, ",")
intKwds = UBound(arrKwds)
intCount = 0
For i = 0 to objAlb.nbPicture - 1
set objPic = objAlb.GetPicture(i)
If objPic.bSelected Then
For j = 0 to intKwds
strKwd = objAlb.GetKeyword(arrKwds(j))
objPic.SetKeyword strKwd, True
Next
intCount = intCount + 1
End If
Next
objAlb.ReDraw()
strStr = intKwds + 1 & " keyword added to " & intCount & "
pictures."
MsgBox strStr, vbOkOnly, "BatchKeyWords"
Else
MsgMox "Quiting the script", vbOKOnly, "BatchKeyWords"
End If
DD said:Does anyone have a favourite program to store photographs and images
that makes searching and their retrieval easy?
DD
DD said:Does anyone have a favourite program to store photographs and images
that makes searching and their retrieval easy?
DD
EditionJonathan Aquino said:DD <[email protected]> wrote in message
I like (1) Picasa from Google and (2) Adobe Photoshop Album Starter
DD said:Does anyone have a favourite program to store photographs and images
that makes searching and their retrieval easy?
bPicture is useful as it's very close to a freeware clone of ACDSEESpoon2001 said:DD - ignore anything that is named "Babya". Anybody who has ever tried
"Babya" software knows that it is worthless and a big waste of your time. I
have seen many user reviews, and Babya software always gets the lowest
possible reviews. The guy who promotes his "Babya" software appears to be a
mental case.
Does anyone have a favourite program to store photographs and images
that makes searching and their retrieval easy?
DD