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
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.