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
Angemeldete Mitglieder können Beiträge verfassen, Updates folgen und mehr. Neu hier? Registriere ein kostenloses Konto.
Find useful guides, FAQs, and documents to help you navigate and make the most of Esri Community.