pStandAloneTableCollection.RemoveStandaloneTable(pStandAloneTable) pMXDocument.UpdateContents()
pStandAloneTable = New StandaloneTableClass pStandAloneTable.Table = pTable pStandAloneTable.Name = Me.TextBox1.Text pStandAloneTableCollection.AddStandaloneTable(pStandAloneTable) pMXDocument.UpdateContents()
Solved! Go to Solution.
My.Computer.FileSystem.DeleteFile(sFullPath)
Dim pWorkspaceFactory As IWorkspaceFactory pWorkspaceFactory = New ShapefileWorkspaceFactoryClass Dim pFeatureWorkspace As IFeatureWorkspace pFeatureWorkspace = pWorkspaceFactory.OpenFromFile(sPath, 0) pTable = pFeatureWorkspace.OpenTable(Me.TextBox1.Text) Dim pDataset As IDataset pDataset = DirectCast(pTable, IDataset) If pDataset.CanDelete Then ' Delete and clean up pDataset.Delete() pTable = Nothing pTable = Nothing pFeatureWorkspace = Nothing pWorkspaceFactory = Nothing End If
My.Computer.FileSystem.DeleteFile(sFullPath)
Dim pWorkspaceFactory As IWorkspaceFactory pWorkspaceFactory = New ShapefileWorkspaceFactoryClass Dim pFeatureWorkspace As IFeatureWorkspace pFeatureWorkspace = pWorkspaceFactory.OpenFromFile(sPath, 0) pTable = pFeatureWorkspace.OpenTable(Me.TextBox1.Text) Dim pDataset As IDataset pDataset = DirectCast(pTable, IDataset) If pDataset.CanDelete Then ' Delete and clean up pDataset.Delete() pTable = Nothing pTable = Nothing pFeatureWorkspace = Nothing pWorkspaceFactory = Nothing End If