Private Sub GeoDatabaseTest(ByVal path As String) Dim pWSF As ESRI.ArcGIS.Geodatabase.IWorkspaceFactory = New ESRI.ArcGIS.DataSourcesGDB.FileGDBWorkspaceFactory Dim pWS As ESRI.ArcGIS.Geodatabase.IWorkspace Dim pDataset As ESRI.ArcGIS.Geodatabase.IDataset Dim pEnumData As ESRI.ArcGIS.Geodatabase.IEnumDataset pWS = pWSF.OpenFromFile(path, 0) pEnumData = pWS.Datasets(ESRI.ArcGIS.Geodatabase.esriDatasetType.esriDTAny) pDataset = pEnumData.Next While Not pDataset Is Nothing Select Case pDataset.Type Case ESRI.ArcGIS.Geodatabase.esriDatasetType.esriDTFeatureClass Debug.Print(pDataset.Name & ": Feature Class") Case ESRI.ArcGIS.Geodatabase.esriDatasetType.esriDTRasterDataset Debug.Print(pDataset.Name & ": Raster Class") Case Else Debug.Print(pDataset.Name & ": Other") End Select pDataset = pEnumData.Next End While End Sub
Angemeldete Mitglieder können Beiträge verfassen, Updates folgen und mehr. Neu hier? Registriere ein kostenloses Konto.
Find useful guides, FAQs, and documents to help you navigate and make the most of Esri Community.