I am trying to append the selected records to a shapefile using VBA. I am calling the append tool from the toolbox but the only way I can get it to work is to export the selected feature and then append, because when using the append tool its getting the values from the table in the location of the shapefile not from the TOC (I think) I tried changing the code so that it is finding the record of the TOC when doing so it will append the right amount of records but all the attributes are empty. Below is the code I am using for this section of the program. Any help would be great.
Dim pGP As Object
Set pGP = CreateObject("esriGeoprocessing.GpDispatch.1")
pGP.Append_management "C:\City_TreeSelector\Temp\LargeTree.shp", "C:\City_TreeSelector\Temp\Temp_Locations.shp", "NO_TEST"
