'========================================================================================
'by John Beardsworth 29/12/05
'version 1.1
'Loops through selected media items and runs a Photoshop script or action
'========================================================================================

	Const kMsgBoxTitle = "Select modified files"

	Set ivApp = CreateObject("iView.Application")
	Set psApp = CreateObject("Photoshop.Application")
   
	If (ivApp.Catalogs.Count = 0) Then
        MsgBox "Please launch Iview MediaPro.", vbCritical, kMsgBoxTitle
	else
		Main
	end if


Sub Main()
    Set ivCat = ivApp.ActiveCatalog
    For Each ivItem In ivCat.Selection
        If ivItem.mounted = True Then

	j = j + 1
        Set psDoc = psApp.Open(ivItem.Path)
        psApp.DoAction "Overlay layer", "John's"
        End If
    Next
   
End sub