Listers:
Greetings and Hallucinations from the Road of Code.
Again thank you for all of the help.
It is true that the following code fail if the file is not already open.
If FileExists(proj_map_dir + "SP_In_No_Source_Buffer.tab) Then
� � �� Drop Table SP_In_No_Source_Buffer
End If
However, the way the mapping project and workspaces are set up the file if it
exists
will be open.
I suppose the way around this if the file was not open would be to have the
program kill files.
If FileExists(proj_map_dir + "SP_In_No_Source_Buffer.tab) Then
� � �� Kill (proj_map_dir + "SP_In_No_Source_Buffer.tab")
Kill (proj_map_dir + "SP_In_No_Source_Buffer.dat")
� � �� Kill (proj_map_dir + "SP_In_No_Source_Buffer.map")
Kill (proj_map_dir + "SP_In_No_Source_Buffer.ID")
End If
In truth there are 10 files that this routines checks for the existence of,
and if it finds them it deletes them. It then recreates the tables if certain
types of points fall within the specific buffers.
The next thing that I am going to work on is shortening the code by using
.dbf files as a default file list for both the point files and the buffer files.
The code will loop through both .dbf files and delete the existing files,
create the necessary tables for the points that fall within the buffers.
It will save a couple hundred lines of code.
I will be happy to post it when I am finished if anyone is interested.
Then only caveat would be that it will not be very generic and it might take
some re-coding to work in your applications.
Regards,
Jon Gramm
