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
Membros conectados podem postar, seguir atualizações e mais. Novo aqui? Registre uma conta gratuita.
Find useful guides, FAQs, and documents to help you navigate and make the most of Esri Community.