'======================================================================================== 'Select modified files script 'by John Beardsworth 8/4/06 'version 1.1 'Loops through visible media items and selects any with yellow label '======================================================================================== const ivLabel = 7 Const kMsgBoxTitle = "Done" Set IViewApp = CreateObject("iView.Application") If (IViewApp.Catalogs.Count = 0) Then MsgBox "Please launch Iview MediaPro.", vbCritical, kMsgBoxTitle End If Main() Sub Main() Set ivCat = IViewApp.ActiveCatalog For Each ivItem In ivCat.mediaItems if ivItem.LabelIndex = ivLabel then ivItem.selected = true else ivItem.selected = false end if Next End sub