https://community.esri.com/t5/arcgis-pro-sdk-questions/arcpy-conversion-exportfeatures-to-vb-net/m-p/1403992#M11314 <P>Hi,</P><P>Your shared code is not so accurate. Code below works:</P><LI-CODE lang="c"> Protected async Overrides Sub OnClick() Try Dim currentLayer = MapView.Active.Map.GetLayersAsFlattenedList().OfType(Of FeatureLayer).FirstOrDefault If currentLayer.ConnectionStatus = ConnectionStatus.Broken Then End If If currentLayer.SelectionCount = 0 Then Else Dim out_features = "C:\PATH\file.shp" Dim where_clause = "TYPE = 80" Dim use_field_alias_as_name = "NOT_USE_ALIAS" Dim sort_field = "None" Dim progDlg = New ProgressDialog("Export map" &amp; vbCrLf &amp; "Go get a coffee", "Cancel") progDlg.Show() Dim progsrc=New CancelableProgressorSource(progDlg) Dim outpath = System.IO.Path.GetDirectoryName(out_features) If Not System.IO.Directory.Exists(outpath) Then System.IO.Directory.CreateDirectory(outpath) Dim valueArray = Await QueuedTask.Run(Function() Return Geoprocessing.MakeValueArray(currentLayer, out_features, where_clause, use_field_alias_as_name, sort_field) End Function) Dim flags As GPExecuteToolFlags = GPExecuteToolFlags.GPThread Dim gpResult As IGPResult = Await Geoprocessing.ExecuteToolAsync("conversion.ExportFeatures", valueArray, Nothing, progsrc.CancellationTokenSource.Token, Nothing, flags) progDlg.Hide() Dim val = If(String.IsNullOrEmpty(gpResult.ReturnValue), $"Error in gp tool: {gpResult.ErrorMessages}", $"Ok: {gpResult.ReturnValue}") End If Catch ex As Exception MessageBox.Show(ex.Message) End Try End Sub</LI-CODE> Mon, 01 Apr 2024 18:49:03 GMT GKmieliauskas 2024-04-01T18:49:03Z https://community.esri.com/t5/arcgis-pro-sdk-questions/arcpy-conversion-exportfeatures-to-vb-net/m-p/1403921#M11313 <P>&nbsp;</P><P>Hi&nbsp;</P><P>I was try to use convert arcpy.conversion.ExportFeatures to VB:NET<BR />when I run the code nothing happened I see the Progress dialog then I don't get the shapefile<BR /><BR /><BR /></P><P>&nbsp;</P><P>&nbsp;</P><LI-CODE lang="python"> count1 = int(arcpy.GetCount_management("LAYERNAME").getOutput(0)) if count1 &gt; 0: #print('Layer has a selection') arcpy.conversion.ExportFeatures( in_features="LAYERNAME", out_features=r"C:\PATH\file.shp", where_clause="TYPE = 80", use_field_alias_as_name="NOT_USE_ALIAS", sort_field=None ) else: print('Layer has no selection') </LI-CODE><P>&nbsp;</P><P>&nbsp;</P><P>&nbsp;</P><LI-CODE lang="c"> Try Dim currentLayer = GetBasicFeaturLayer(layerpath) If currentLayer.ConnectionStatus = ConnectionStatus.Broken Then End If If currentLayer.SelectionCount = 0 Then Else Dim in_features = "LAYERNAME" Dim out_features = "C:\PATH\file.shp" Dim where_clause = "TYPE = 80" Dim use_field_alias_as_name = "NOT_USE_ALIAS" Dim sort_field = "None" Dim progDlg = New ProgressDialog("Export map" &amp; vbCrLf &amp; "Go get a coffee", "Cancel") progDlg.Show() Dim progsrc=New CancelableProgressorSource(progDlg) If Not System.IO.Directory.Exists(outpath) Then System.IO.Directory.CreateDirectory(outpath) Dim valueArray = Await QueuedTask.Run(Function() Dim inlayers As List(Of String) = New List(Of String)() inlayers.Add(layerpath) Return Geoprocessing.MakeValueArray(inlayers, outpath, where_clause, use_field_alias_as_name, sort_field) End Function) Dim flags As GPExecuteToolFlags = GPExecuteToolFlags.GPThread Dim gpResult As IGPResult = Await Geoprocessing.ExecuteToolAsync("conversion.ExportFeatures", valueArray, Nothing, progsrc.CancellationTokenSource.Token, Nothing, flags) progDlg.Hide() Return If(String.IsNullOrEmpty(gpResult.ReturnValue), $"Error in gp tool: {gpResult.ErrorMessages}", $"Ok: {gpResult.ReturnValue}") End If Catch ex As Exception MessageBox.Show(ex.Message) End Try </LI-CODE><P>&nbsp;</P><P>&nbsp;</P> Mon, 01 Apr 2024 16:39:54 GMT https://community.esri.com/t5/arcgis-pro-sdk-questions/arcpy-conversion-exportfeatures-to-vb-net/m-p/1403921#M11313 SigurdurGesr 2024-04-01T16:39:54Z https://community.esri.com/t5/arcgis-pro-sdk-questions/arcpy-conversion-exportfeatures-to-vb-net/m-p/1403992#M11314 <P>Hi,</P><P>Your shared code is not so accurate. Code below works:</P><LI-CODE lang="c"> Protected async Overrides Sub OnClick() Try Dim currentLayer = MapView.Active.Map.GetLayersAsFlattenedList().OfType(Of FeatureLayer).FirstOrDefault If currentLayer.ConnectionStatus = ConnectionStatus.Broken Then End If If currentLayer.SelectionCount = 0 Then Else Dim out_features = "C:\PATH\file.shp" Dim where_clause = "TYPE = 80" Dim use_field_alias_as_name = "NOT_USE_ALIAS" Dim sort_field = "None" Dim progDlg = New ProgressDialog("Export map" &amp; vbCrLf &amp; "Go get a coffee", "Cancel") progDlg.Show() Dim progsrc=New CancelableProgressorSource(progDlg) Dim outpath = System.IO.Path.GetDirectoryName(out_features) If Not System.IO.Directory.Exists(outpath) Then System.IO.Directory.CreateDirectory(outpath) Dim valueArray = Await QueuedTask.Run(Function() Return Geoprocessing.MakeValueArray(currentLayer, out_features, where_clause, use_field_alias_as_name, sort_field) End Function) Dim flags As GPExecuteToolFlags = GPExecuteToolFlags.GPThread Dim gpResult As IGPResult = Await Geoprocessing.ExecuteToolAsync("conversion.ExportFeatures", valueArray, Nothing, progsrc.CancellationTokenSource.Token, Nothing, flags) progDlg.Hide() Dim val = If(String.IsNullOrEmpty(gpResult.ReturnValue), $"Error in gp tool: {gpResult.ErrorMessages}", $"Ok: {gpResult.ReturnValue}") End If Catch ex As Exception MessageBox.Show(ex.Message) End Try End Sub</LI-CODE> Mon, 01 Apr 2024 18:49:03 GMT https://community.esri.com/t5/arcgis-pro-sdk-questions/arcpy-conversion-exportfeatures-to-vb-net/m-p/1403992#M11314 GKmieliauskas 2024-04-01T18:49:03Z