Solved! Go to Solution.
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
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