Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Appending from several tables
Message
 
 
To
19/04/2007 16:38:20
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
01217264
Message ID:
01218462
Views:
17
Rich

You code is good and appends from tables of the old folder
to all tables of the new folder

However I notice that if there is a table present only in the old
folder that is not present in the new folder it will try to append

How can I skip the code from processing tables that only exist
on the old folder ?



lcAppendIntoPath = ADDBS(myIntoPath)
lcAppendFromPath = ADDBS(myFromPath)
lnNumTables = ADIR(aTables,lcAppendFromPath+"*.dbf")
SELECT 0
FOR I = 1 TO lnNumTables
TRY
USE (lcAppendIntoPath+aTables[i,1] EXCLUSIVE
ZAP
APPEND FROM (lcAppendFromPath+aTables[I,1])
CATCH
=MESSAGEBOX("Cannot open "+lcAppendIntoPath+aTables[I,1])
ENDTRY
ENDFOR
USE
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform