Thanks Freddie that is really appreciated.
VB.Net version of the code below.
Dim booHdrive As Boolean = False
Dim pGxObjCont As IGxObjectContainer
Dim intFolders As Integer
Dim pGxCatalog As IGxCatalog
pGxCatalog = New GxCatalog
If pGxCatalog Is Nothing Then
Exit Sub
Else
pGxObjCont = pGxCatalog.GetObjectFromFullName("Folder Connections", intFolders)
End If
Dim pEnumGxObj As IEnumGxObject
pEnumGxObj = pGxObjCont.Children
If Not pEnumGxObj Is Nothing Then
Dim pGxObj As IGxObject
pGxObj = pEnumGxObj.Next
Do While Not pGxObj Is Nothing
If pGxObj.FullName = "H:\" Then
booHdrive = True
End If
pGxObj = pEnumGxObj.Next
Loop
End If