Sample code that demonstrates how to open an existing shapefile and save that shapefile with a new file name.

Imports DotSpatial.Data

Private Sub button1_Click(sender As Object, e As EventArgs)
	'Declare a new feature set
	Dim fs As New FeatureSet()
	'Pass in the file path for the standard shapefile that will be opened
	fs.Open("C:\Temp\roads.shp")
	'Saves the open shapefile
	fs.SaveAs("C:\Temp\roads_test.shp", True)
End Sub

Last edited Jul 13, 2010 at 3:07 PM by AlamoMan, version 1