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