Public Function GetLayer(ByVal path As String) As IFeatureLayer Dim strOutputFileName As String = System.IO.Path.GetFileName(path) Dim strOutputFolderName1 As String = System.IO.Path.GetDirectoryName(path) Dim strOutputFolderName As String = strOutputFolderName1.Remove(strOutputFolderName1.Length - 1) Dim pWorkspaceFactory As IWorkspaceFactory = New ESRI.ArcGIS.DataSourcesGDB.FileGDBWorkspaceFactoryClass Dim pFeatureWorkspace As IFeatureWorkspace = pWorkspaceFactory.OpenFromFile(strOutputFolderName, 0) Dim pFLayer As IFeatureLayer = New FeatureLayer pFLayer.FeatureClass = pFeatureWorkspace.OpenFeatureClass(strOutputFileName) Return pFLayer End Function
Solved! Go to Solution.
Public Function GetFGDBRasterLayer(ByVal path As String) As IRasterLayer Dim workspaceFactory As IWorkspaceFactory2 = New FileGDBWorkspaceFactoryClass() Dim rasterWorkspace As IRasterWorkspaceEx = CType(workspaceFactory.OpenFromFile(System.IO.Path.GetDirectoryName(path), 0), IRasterWorkspaceEx) Dim rasterDataset As IRasterDataset = rasterWorkspace.OpenRasterDataset(System.IO.Path.GetFileName(path)) Dim rasterLayer As ESRI.ArcGIS.Carto.IRasterLayer = New ESRI.ArcGIS.Carto.RasterLayerClass rasterLayer.CreateFromDataset(rasterDataset) Return rasterLayer End Function