The safe way to get information from the Tridion URI

Introduction

The safe way to get information from the Tridion URI.

1. The safe way to get information from the Tridion URI.

Function GetItemType(ByVal iStrURI)
 Dim objURI   
 Set objURI = CreateObject("TDSSystem.TDSURI")   
 Call objURI.Load(iStrURI)   
 'ItemType = objURI.ItemType
 'Publication = objURI.Publication
 'ItemID = objURI.ItemID
 'Version = objURI.Version   

 GetItemType = objURI.ItemType
 Set objURI = Nothing
End Function