<?xml version="1.0" encoding="UTF-8"?>
<rss xmlns:content="http://purl.org/rss/1.0/modules/content/" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" xmlns:taxo="http://purl.org/rss/1.0/modules/taxonomy/" version="2.0">
  <channel>
    <title>topic Re: how to save feature class as shape file + C# in ArcObjects SDK Questions</title>
    <link>https://community.esri.com/t5/arcobjects-sdk-questions/how-to-save-feature-class-as-shape-file-c/m-p/602872#M16156</link>
    <description>&lt;HTML&gt;&lt;HEAD&gt;&lt;/HEAD&gt;&lt;BODY&gt;&lt;SPAN&gt;You can use IFeatureDataConverter to save a featureclass to a shapefile. Here is a quick example:&lt;/SPAN&gt;&lt;BR /&gt;&lt;BR /&gt;&lt;PRE class="lia-code-sample line-numbers language-none"&gt;Public Sub GetFeatureClassAndWorkspace()

&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; Dim pOutSDEPropset As IPropertySet
&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; Set pOutSDEPropset = New PropertySet
&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; With pOutSDEPropset
&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; .SetProperty "Server", "shakedown"
&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; .SetProperty "Instance", "5151"
&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; .SetProperty "user", "sde"
&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; .SetProperty "password", "sde"
&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; .SetProperty "version", "SDE.DEFAULT"
&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; End With
&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; 
&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; ' +++ Create a new feature datset name object for the output SDE feature dataset, call
&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; ' +++ it "USA"
&amp;nbsp;&amp;nbsp; Dim pSDEworkspacefactory As IWorkspaceFactory
&amp;nbsp;&amp;nbsp; Set pSDEworkspacefactory = New SdeWorkspaceFactory
&amp;nbsp;&amp;nbsp; Dim pWorkspace As IWorkspace
&amp;nbsp;&amp;nbsp; Set pWorkspace = pSDEworkspacefactory.Open(pOutSDEPropset, 0)
&amp;nbsp;&amp;nbsp; 
&amp;nbsp;&amp;nbsp; Dim pSFworkspacefactory As IWorkspaceFactory
&amp;nbsp;&amp;nbsp; Set pSFworkspacefactory = New ShapefileWorkspaceFactory
&amp;nbsp;&amp;nbsp; Dim pShapeWorkspace As IWorkspace
&amp;nbsp;&amp;nbsp; Set pShapeWorkspace = pSFworkspacefactory.OpenFromFile("C:\test_data\shapefiles", 0)
&amp;nbsp;&amp;nbsp; 
&amp;nbsp;&amp;nbsp; Dim pFeatWork As IFeatureWorkspace
&amp;nbsp;&amp;nbsp; Set pFeatWork = pShapeWorkspace
&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; 
&amp;nbsp;&amp;nbsp; Dim pFeatureClass As IFeatureClass
&amp;nbsp;&amp;nbsp; Dim pFeatWs As IFeatureWorkspace
&amp;nbsp;&amp;nbsp; Set pFeatWs = pWorkspace
&amp;nbsp;&amp;nbsp; Set pFeatureClass = pFeatWs.OpenFeatureClass("States")
&amp;nbsp;&amp;nbsp; 
&amp;nbsp;&amp;nbsp;&amp;nbsp; ConvertFeatureClass pFeatureClass, pFeatWork
&amp;nbsp;&amp;nbsp; 
&amp;nbsp;&amp;nbsp; 
End Sub

Public Sub ConvertFeatureClass(pFeatureClass As IFeatureClass, _
&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; pOutWorkspace As IWorkspace)
'Purpose: Converts a featureclass to a new feature class in a given workspace.
&amp;nbsp; 'Get input FeatureClassName and workspace
&amp;nbsp; Dim pInFCName As IFeatureClassName
&amp;nbsp; Dim pDataset As IDataset
&amp;nbsp; Set pDataset = pFeatureClass
&amp;nbsp; Set pInFCName = pDataset.FullName
&amp;nbsp; Dim pInWorkspace As IWorkspace
&amp;nbsp; Set pInWorkspace = pDataset.Workspace
&amp;nbsp; 
&amp;nbsp; 'Set output workspacename
&amp;nbsp; Set pDataset = pOutWorkspace
&amp;nbsp; Dim pOutWorkspaceName As IWorkspaceName
&amp;nbsp; Set pOutWorkspaceName = pDataset.FullName
&amp;nbsp; 
&amp;nbsp; 'Set output FeatureClassName
&amp;nbsp; Dim pOutFCName As IFeatureClassName
&amp;nbsp; Set pOutFCName = New FeatureClassName
&amp;nbsp; Dim pDatasetName As IDatasetName
&amp;nbsp; Set pDatasetName = pOutFCName
&amp;nbsp; pDatasetName.Name = "States_SHP.shp"
&amp;nbsp; Set pDatasetName.WorkspaceName = pOutWorkspaceName
&amp;nbsp; 
&amp;nbsp; 'Get fields for input feature class and run them through field checker
&amp;nbsp; Dim pFieldChecker As IFieldChecker
&amp;nbsp; Dim pFields As IFields
&amp;nbsp; Set pFields = pFeatureClass.Fields
&amp;nbsp; Dim pOutFields As IFields
&amp;nbsp; Set pFieldChecker = New FieldChecker
&amp;nbsp; pFieldChecker.InputWorkspace = pInWorkspace
&amp;nbsp; Set pFieldChecker.ValidateWorkspace = pOutWorkspace
&amp;nbsp; pFieldChecker.Validate pFields, Nothing, pOutFields
&amp;nbsp; 
&amp;nbsp; 'Convert the data
&amp;nbsp; Dim pFeatureDataConverter As IFeatureDataConverter
&amp;nbsp; Set pFeatureDataConverter = New FeatureDataConverter
&amp;nbsp; pFeatureDataConverter.ConvertFeatureClass pInFCName, Nothing, _
&amp;nbsp;&amp;nbsp;&amp;nbsp; Nothing, pOutFCName, Nothing, pOutFields, "", 100, 0
End Sub&lt;/PRE&gt;&lt;/BODY&gt;&lt;/HTML&gt;</description>
    <pubDate>Sun, 12 Dec 2021 01:51:11 GMT</pubDate>
    <dc:creator>PhilMiotto</dc:creator>
    <dc:date>2021-12-12T01:51:11Z</dc:date>
    <item>
      <title>how to save feature class as shape file + C#</title>
      <link>https://community.esri.com/t5/arcobjects-sdk-questions/how-to-save-feature-class-as-shape-file-c/m-p/602871#M16155</link>
      <description>&lt;HTML&gt;&lt;HEAD&gt;&lt;/HEAD&gt;&lt;BODY&gt;&lt;SPAN&gt;hi experts,&lt;/SPAN&gt;&lt;BR /&gt;&lt;BR /&gt;&lt;SPAN&gt;can anyone provide me some help on how to save the feature class as shape file in the disk.&lt;/SPAN&gt;&lt;BR /&gt;&lt;BR /&gt;&lt;BR /&gt;&lt;SPAN&gt;Thanks&lt;/SPAN&gt;&lt;BR /&gt;&lt;SPAN&gt;Mukund&lt;/SPAN&gt;&lt;/BODY&gt;&lt;/HTML&gt;</description>
      <pubDate>Fri, 09 Mar 2012 17:28:24 GMT</pubDate>
      <guid>https://community.esri.com/t5/arcobjects-sdk-questions/how-to-save-feature-class-as-shape-file-c/m-p/602871#M16155</guid>
      <dc:creator>MukundaRao_R</dc:creator>
      <dc:date>2012-03-09T17:28:24Z</dc:date>
    </item>
    <item>
      <title>Re: how to save feature class as shape file + C#</title>
      <link>https://community.esri.com/t5/arcobjects-sdk-questions/how-to-save-feature-class-as-shape-file-c/m-p/602872#M16156</link>
      <description>&lt;HTML&gt;&lt;HEAD&gt;&lt;/HEAD&gt;&lt;BODY&gt;&lt;SPAN&gt;You can use IFeatureDataConverter to save a featureclass to a shapefile. Here is a quick example:&lt;/SPAN&gt;&lt;BR /&gt;&lt;BR /&gt;&lt;PRE class="lia-code-sample line-numbers language-none"&gt;Public Sub GetFeatureClassAndWorkspace()

&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; Dim pOutSDEPropset As IPropertySet
&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; Set pOutSDEPropset = New PropertySet
&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; With pOutSDEPropset
&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; .SetProperty "Server", "shakedown"
&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; .SetProperty "Instance", "5151"
&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; .SetProperty "user", "sde"
&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; .SetProperty "password", "sde"
&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; .SetProperty "version", "SDE.DEFAULT"
&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; End With
&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; 
&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; ' +++ Create a new feature datset name object for the output SDE feature dataset, call
&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; ' +++ it "USA"
&amp;nbsp;&amp;nbsp; Dim pSDEworkspacefactory As IWorkspaceFactory
&amp;nbsp;&amp;nbsp; Set pSDEworkspacefactory = New SdeWorkspaceFactory
&amp;nbsp;&amp;nbsp; Dim pWorkspace As IWorkspace
&amp;nbsp;&amp;nbsp; Set pWorkspace = pSDEworkspacefactory.Open(pOutSDEPropset, 0)
&amp;nbsp;&amp;nbsp; 
&amp;nbsp;&amp;nbsp; Dim pSFworkspacefactory As IWorkspaceFactory
&amp;nbsp;&amp;nbsp; Set pSFworkspacefactory = New ShapefileWorkspaceFactory
&amp;nbsp;&amp;nbsp; Dim pShapeWorkspace As IWorkspace
&amp;nbsp;&amp;nbsp; Set pShapeWorkspace = pSFworkspacefactory.OpenFromFile("C:\test_data\shapefiles", 0)
&amp;nbsp;&amp;nbsp; 
&amp;nbsp;&amp;nbsp; Dim pFeatWork As IFeatureWorkspace
&amp;nbsp;&amp;nbsp; Set pFeatWork = pShapeWorkspace
&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; 
&amp;nbsp;&amp;nbsp; Dim pFeatureClass As IFeatureClass
&amp;nbsp;&amp;nbsp; Dim pFeatWs As IFeatureWorkspace
&amp;nbsp;&amp;nbsp; Set pFeatWs = pWorkspace
&amp;nbsp;&amp;nbsp; Set pFeatureClass = pFeatWs.OpenFeatureClass("States")
&amp;nbsp;&amp;nbsp; 
&amp;nbsp;&amp;nbsp;&amp;nbsp; ConvertFeatureClass pFeatureClass, pFeatWork
&amp;nbsp;&amp;nbsp; 
&amp;nbsp;&amp;nbsp; 
End Sub

Public Sub ConvertFeatureClass(pFeatureClass As IFeatureClass, _
&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; pOutWorkspace As IWorkspace)
'Purpose: Converts a featureclass to a new feature class in a given workspace.
&amp;nbsp; 'Get input FeatureClassName and workspace
&amp;nbsp; Dim pInFCName As IFeatureClassName
&amp;nbsp; Dim pDataset As IDataset
&amp;nbsp; Set pDataset = pFeatureClass
&amp;nbsp; Set pInFCName = pDataset.FullName
&amp;nbsp; Dim pInWorkspace As IWorkspace
&amp;nbsp; Set pInWorkspace = pDataset.Workspace
&amp;nbsp; 
&amp;nbsp; 'Set output workspacename
&amp;nbsp; Set pDataset = pOutWorkspace
&amp;nbsp; Dim pOutWorkspaceName As IWorkspaceName
&amp;nbsp; Set pOutWorkspaceName = pDataset.FullName
&amp;nbsp; 
&amp;nbsp; 'Set output FeatureClassName
&amp;nbsp; Dim pOutFCName As IFeatureClassName
&amp;nbsp; Set pOutFCName = New FeatureClassName
&amp;nbsp; Dim pDatasetName As IDatasetName
&amp;nbsp; Set pDatasetName = pOutFCName
&amp;nbsp; pDatasetName.Name = "States_SHP.shp"
&amp;nbsp; Set pDatasetName.WorkspaceName = pOutWorkspaceName
&amp;nbsp; 
&amp;nbsp; 'Get fields for input feature class and run them through field checker
&amp;nbsp; Dim pFieldChecker As IFieldChecker
&amp;nbsp; Dim pFields As IFields
&amp;nbsp; Set pFields = pFeatureClass.Fields
&amp;nbsp; Dim pOutFields As IFields
&amp;nbsp; Set pFieldChecker = New FieldChecker
&amp;nbsp; pFieldChecker.InputWorkspace = pInWorkspace
&amp;nbsp; Set pFieldChecker.ValidateWorkspace = pOutWorkspace
&amp;nbsp; pFieldChecker.Validate pFields, Nothing, pOutFields
&amp;nbsp; 
&amp;nbsp; 'Convert the data
&amp;nbsp; Dim pFeatureDataConverter As IFeatureDataConverter
&amp;nbsp; Set pFeatureDataConverter = New FeatureDataConverter
&amp;nbsp; pFeatureDataConverter.ConvertFeatureClass pInFCName, Nothing, _
&amp;nbsp;&amp;nbsp;&amp;nbsp; Nothing, pOutFCName, Nothing, pOutFields, "", 100, 0
End Sub&lt;/PRE&gt;&lt;/BODY&gt;&lt;/HTML&gt;</description>
      <pubDate>Sun, 12 Dec 2021 01:51:11 GMT</pubDate>
      <guid>https://community.esri.com/t5/arcobjects-sdk-questions/how-to-save-feature-class-as-shape-file-c/m-p/602872#M16156</guid>
      <dc:creator>PhilMiotto</dc:creator>
      <dc:date>2021-12-12T01:51:11Z</dc:date>
    </item>
  </channel>
</rss>

