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
Aangemelde leden kunnen berichten plaatsen, updates volgen en meer. Nieuw hier? Registreer een gratis account.
Find useful guides, FAQs, and documents to help you navigate and make the most of Esri Community.