The MediaServer.Titles property returns a collection object of the titles on a NetShow Theater Server.
Syntax
MediaServer.Titles( titlespec )
Parameters
titlespec
A String specification to match title names, such as "*.vod".
Remarks
The Titles property is unique in that it can accept a titlespec parameter. You can use this feature to obtain a Titles collection of a specified type of titles.
Example
MediaServer1.SetServer "MyServer"
Dim title As IMSrvTitle
For Each title In MediaServer1.Titles("*.vod")
MsgBox "Title Name:" & title.Name
Next