Solved! Go to Solution.
If TypeOf layer Is ESRI.ArcGIS.Geodatabase.IDataset Then Dim dataset As ESRI.ArcGIS.Geodatabase.IDataset = CType(layer, ESRI.ArcGIS.Geodatabase.IDataset) GetCategory(dataset.Workspace) End If
Public Function GetCategory(ByVal pWorkspace As ESRI.ArcGIS.Geodatabase.IWorkspace) As String Dim sClassID As String sClassID = pWorkspace.WorkspaceFactory.GetClassID.Value Select Case sClassID Case "{DD48C96A-D92A-11D1-AA81-00C04FA33A15}" ' pGDB GetCategory = "Personal Geodatabase Database" Case "{71FE75F0-EA0C-4406-873E-B7D53748AE7E}" ' fGDB GetCategory = "File Geodatabase" ' Case "{D9B4FA40-D6D9-11D1-AA81-00C04FA33A15}" ' GDB GetCategory = "SDE Database" Case "{A06ADB96-D95C-11D1-AA81-00C04FA33A15}" ' Shape GetCategory = "Shapefile Workspace" Case "{34DAE34F-DBE2-409C-8F85-DDBB46138011}" ' SDC GetCategory = "SDC Workspace" Case "{1D887452-D9F2-11D1-AA81-00C04FA33A15}" ' Coverage GetCategory = "ArcInfo Coverage Workspace" Case "{7F2BC55C-B902-43D0-A566-AA47EA9FDA2C}" ' InMemory GetCategory = "InMemory Workspace" Case "{59158055-3171-11D2-AA94-00C04FA37849}" 'OLEDB Workspace GetCategory = "OLEDB Workspace" Case Else GetCategory = "Unknown Workspace Category" End Select End Function
If TypeOf layer Is ESRI.ArcGIS.Geodatabase.IDataset Then Dim dataset As ESRI.ArcGIS.Geodatabase.IDataset = CType(layer, ESRI.ArcGIS.Geodatabase.IDataset) GetCategory(dataset.Workspace) End If