'========================================================================================
'by John Beardsworth 24/5/06
'version 1.1
'Loops through selected items and sets title field to same as filename  
'========================================================================================

	Const kMsgBoxTitle = "Filename to title"

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


Sub Main()
    Set ivCat = ivApp.ActiveCatalog
    j=0	
    For Each ivItem In ivCat.Selection
	'ivItem.annotations.title = ivItem.name
	ivItem.annotations.title = left(ivItem.name, len(ivItem.name)-4)
	j = j + 1
    Next
MsgBox j & " records updated", vbOKOnly, kMsgBoxTitle
   
End Sub