Dim pObject As Object pObject = pName.Open 'PName is the IName-Object from Clipboard If TypeOf pObject Is IFeatureClass Then ... ElseIf TypeOf pObject Is ITable Then ... End If
If TypeOf pName Is IDatasetName Then Dim pDatasetName As IDatasetName pDatasetName = pName Dim pWorkspaceName As IWorkspaceName2 pWorkspaceName = pDatasetName.WorkspaceName If pDatasetName.Type = esriDatasetType.esriDTFeatureClass Then 'Shapefile? If pWorkspaceName.WorkspaceFactoryProgID.Contains("esriDataSourcesFile.ShapefileWorkspaceFactory") Then '... End If End If End If
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.