Information générale
Catégorie:
Codage, syntaxe et commandes
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
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement