Friend Sub DeleteDataset(ByVal InputName As Object) Using releaser as new ComReleaser Dim DSDelete As New ESRI.ArcGIS.DataManagementTools.Delete releaser.ManageLifeTime(DSDelete) Dim Result As ESRI.ArcGIS.Geoprocessing.IGeoProcessorResult DSDelete.in_data = InputName Result = RunTool(DSDelete, Nothing) If Result Is Nothing Then System.Windows.Forms.MessageBox.Show("Unable to delete dataset '" & InputName & "'", "Unable to delete", Windows.Forms.MessageBoxButtons.OK, Windows.Forms.MessageBoxIcon.Exclamation) End Using End Sub
Friend Sub DeleteDataset(ByVal InputName As Object) Dim DSDelete As New ESRI.ArcGIS.DataManagementTools.Delete Dim Result As ESRI.ArcGIS.Geoprocessing.IGeoProcessorResult Try DSDelete.in_data = InputName Result = RunTool(DSDelete, Nothing) If Result Is Nothing Then System.Windows.Forms.MessageBox.Show("Unable to delete dataset '" & InputName & "'", "Unable to delete", Windows.Forms.MessageBoxButtons.OK, Windows.Forms.MessageBoxIcon.Exclamation) Catch ex As Exception ExceptionMessage(ex, "Delete Dataset") Finally ESRI.ArcGIS.ADF.ComReleaser.ReleaseCOMObject(DSDelete) End Try End Sub
Los miembros registrados pueden publicar, seguir actualizaciones y más. ¿Nuevo aquí? Regístrate gratis.
Find useful guides, FAQs, and documents to help you navigate and make the most of Esri Community.